program grafika;
uses graph,crt;
var drajver,mode,x,y,ind:integer;
znak:char;
procedure pomjeranje;
begin
If (ind=97) or (ind=115) or (ind=100) or (ind=119) then
Case ind of
100: x:=x+1;
97: x:=x-1;
119: y:=y-1;
115: y:=y+1;
end;
end;
procedure inc;
begin
drajver:=detect;
initgraph (drajver,mode,'');
x:=50;
y:=50;
end;
Procedure ucitavanje;
begin
znak:=readkey;
ind:=ord(znak);
end;
begin
inc;
repeat
clrscr;
ucitavanje;
pomjeranje;
line (x,y,x+100,y);
line (x,y,x,y+10);
line (x+100,y,x+100,y+10);
line (x,y+10,x+100,y+10);
until ind=27;
closegraph;
readln;
end.