asd / корзина / лекции по TP / Lecture_Pascal / graph / UH11A

program a1;
uses crt,graph;
var gd,gm,a,b,i,c,d,e:integer;
q:char;
label 1,2;
procedure pict1;
begin
rectangle(200+a,150+a,400-a,350-a);rectangle(250-a,200-a,350+a,300+a);
rectangle(200+a,150+a,300-a,250-a);rectangle(300+a,150+a,400-a,250-a);
rectangle(300+a,250+a,400-a,350-a);rectangle(200+a,250+a,300-a,350-a);
circle(300,250,b);
end;
begin
1:writeln('‚ўҐ¤ЁвҐ 2 楫ле зЁб«  ®в -7 ¤® 7:');readln(c,d);
writeln('‚ўҐ¤ЁвҐ 2 楫ле зЁб«  ®в 0 ¤® 15:');readln(i,e);
gd:=detect;
initgraph(gd,gm,'d:\tp70\bgi');
if graphresult<>grok then begin
textcolor(20);writeln('ЋиЁЎЄ  !');delay(3000);halt;end;
setbkcolor(black);
setlinestyle(0,0,1);
repeat
a:=1;b:=50;
repeat
setcolor(i+1);
pict1;delay(20);
setcolor(i);pict1;
a:=a+c;b:=b-1;
until keypressed or(a=100)or(b<1);
a:=100;b:=1;
repeat
setcolor(i-1);
pict1;
delay(20);
setcolor(i);pict1;
a:=a-d;b:=b+3;
until keypressed or(a=0)or(b>50);i:=i+e;
until keypressed;
closegraph;
nosound;
writeln('…йҐ (y/n)?');readln(q);clrscr;
if ord(q)=110 then goto 2;if ord(q)=121 then goto 1;
2:end.