01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / LENA / TTT

program kkk;
uses graph,crt;

var
gd,gm,x,y,i,lx, ly, rx, ry, xm, ym, d, s, size, w, v :integer;
k:pointer;
const
pause=50;
label
1;
begin
gd:=detect;

initgraph (gd,gm,'');
setcolor(6);
setfillstyle(4,6);

bar3d(150,150,500,450,25,topon);
setfillstyle(1,0);
floodfill(442,410,6);
bar(180,180,440,420);
setcolor(2);
circle(470,435,7);
circle(470,415,7);
circle(470,395,7);
setfillstyle(1,8);
bar(180,450,220,470);
setfillstyle(1,8);
bar(440,450,480,470);
setcolor(5);
line(325,140,70,100);
line(325,140,540,100);
circle(70,100,3);
circle(540,100,3);

setcolor(3);
ellipse(250,250,360,0,40,40 div 5);
ellipse(250,246,190,357,40,40 div 2);
line(250+7,250-6,250+10,250-17);
line(250-7,250-6,250-10,250-17);
circle(260,233,2);
circle(240,233,2);
floodfill(251,254,3);
lx:=75-30-1;
ly:=20;
rx:=75+30+1;
ry:=20+15 div 6;
d:=rx-lx+1;
s:=ry-ly+1;

size:=imagesize(lx, ly, rx, ry);
getMem(k, Size);
GetImage(lx, ly, rx, ry, k^);
PutImage(lx, ly, k^, Xorput);
Rectangle(xm, ym, 3*xm, 3*ym);
SetViewPort(xm+1, ym+1, 3*xm-1, 3*ym-1, Clipon);
xm:=2*xm;
ym:=2*ym;

for i:=1 to 200 do
putpixel(180+random(440-180),180+random(420-180),15);
x:=xm div 2;
y:=ym div 2;
w:=10;
v:=10;
repeat
putimage(180,180,k^,xorput);
delay(pause);
putimage(180,180,k^,xorput);

x:=x+w;
y:=y+v;
if (x<0) or ( x+d+1>xm) or (y<0) or (y+s+1>ym ) then
begin
x:=x-w;y:=y-v;
w:=getmaxx div 10-random(getmaxx div 5);
v:=getmaxy div 30-random(getmaxy div 15);
end
until keypressed;

if readkey=#0 then x:=ord(readkey);
closegraph;
end.