okienko

program oknicko;
uses crt;
var a,b,c,d,e:byte;
procedure okno(x,y,dx,dy,f:byte);
var i:integer;
begin
textcolor(f);
for i:=0 to dx-1 do begin
                     gotoxy(x+i,y);
                     write('+');
                     end;
for i:=0 to dx-1 do begin
                     gotoxy(x+i,y+dy-1);
                     write('+');
                     end;
for i:=0 to dy-1 do begin
                     gotoxy(x,y+i);
                     write('+');
                     end;
for i:=0 to dy-1 do begin
                     gotoxy(x+dx-1,y+i);
                     write('+');
                     end; 
writeln;
end;
begin
clrscr;
write('zadaj x: ');
readln(a);
write('zadaj y: ');
readln(b);
write('zadaj dľžku: ');
readln(c);
write('zadaj šírku: ');
readln(d);
write('zadaj farbu: ');
readln(e);
okno(a,b,c,d,e);
readln;
end.