program szakasz;
uses graph;
var gd,gm,x1,y1,o:integer;
procedure negyzet(x,y,a:integer);
begin
 rectangle(x,y,x+a,y+a);
end;
begin
  Write('Kerem a balfelso sarok x koordinatajat! (integer): ');
  readln(x1);
  Write('Kerem a balfelso sarok y koordinatajat! (integer): ');
  readln(y1);
  Write('Kerem a negyzet oldalat! (integer): ');
  readln(o);
  detectgraph(gd,gm);
  initgraph(gd, gm, 'c:\tp70\bgi');
  negyzet(x1,y1,o);
  readln;
  closegraph
end.