uses crt; 
var 
   a, b, c, x, y: integer; 
   f: text; 
begin 
   ClrScr; 
   writeln('Koordinaty vershiny: '); 
   write('a: '); 
   readln(a); 
   write('b: '); 
   readln(b); 
   write('Storona kvadrata: '); 
   readln(c); 
   writeln('Koordinaty tochki: '); 
   write('x: '); 
   readln(x); 
   write('y: '); 
   readln(y); 
   ClrScr; 
   writeln('Vershiny kvadrata: '); 
   Assign(f, 'output.txt'); 
   Rewrite(f); 
   writeln(f, 'v1 [', a, ',', b, ']'); 
   writeln(f, 'v2 [', a + c, ',', b, ']'); 
   writeln(f, 'v3 [', a + c, ',', b + c, ']'); 
   writeln(f, 'v4 [', a, ',', b + c, ']'); 
   writeln(f); 
   writeln('v1 [', a, ',', b, ']'); 
   writeln('v2 [', a + c, ',', b, ']'); 
   writeln('v3 [', a + c, ',', b + c, ']'); 
   writeln('v4 [', a, ',', b + c, ']'); 
   writeln; 
   if (x >= a) and (x <= a + c) and (y >= b) and (y <= b + c) then 
    begin 
     writeln(f, 'Tochka [', x, ',', y, '] popadaet v kvadrat.'); 
     writeln('Tochka [', x, ',', y, '] popadaet v kvadrat.'); 
    end 
   else 
    begin 
     writeln(f, 'Tochka [', x, ',', y, '] ne popadaet v kvadrat.'); 
     writeln('Tochka [', x, ',', y, '] ne popadaet v kvadrat.'); 
    end; 
   Close(f); 
   ReadLn; 
end.