Програмування Pascal

end;

#27: exit:=true;

#13: begin

count;

exit:=true;

readkey;

end;

end;

until exit;

draw;

ramka;

end;

{************** Основная процедура задания №2 ****************}

procedure zad2;

var st:string;

shoot,exit:boolean;

tx,ty,sx,len,angle,speed,maxx,x,y,e,x1,y1:integer;

t,an,vx,vy,xx,yy:real;

label 2;

begin

randomize;

maxx:=getmaxx;

setfillpattern (full, black);

setcolor (green);

bar (11,11,maxx-21,264);

bar3d (10,250,maxx-20,265,0,topon);

setcolor (11);

st:='Умова задачi:';

outtextxy (200,40,st);

setcolor (white);