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

program durak;
uses graph, crt;
var
x, y:real;
b, d, a, m:integer;
c:char;
label 1, 2;
begin
clrscr;
writeln('Є Є®Ј® жўҐв  ­ аЁб®ў вм дЁЈгаг?');
readln(a);1:if (a>15) or (a<0) then begin writeln('ЌҐЇ®­пв­л© 梥в! „Ё Ї §®­ 梥⮢ - 0-15! ‚ўҐ¤ЁвҐ 梥в:');
readln(a);goto 1;end;
writeln('‚ Є Є®© зҐвўҐавЁ ў ¬ ­ аЁб®ў вм дЁЈгаг?');
readln(b);
2: case b of
1: writeln('дЁЈга  Ўг¤Ґв ­ е®¤Ёвмбп ў ЇҐаў®© зҐвўҐавЁ');
2: writeln('дЁЈга  Ўг¤Ґв ­ е®¤Ёвмбп ў® ўв®а®© зҐвўҐавЁ');
3: writeln('дЁЈга  Ўг¤Ґв ­ е®¤Ёвмбп ў ваҐв쥩 зҐвўҐавЁ');
4: writeln('дЁЈга  Ўг¤Ґв ­ е®¤Ёвмбп ў зҐвў©ав®© зҐвўҐавЁ');
else begin writeln('', b, ' зҐвўҐавм? Ќг вл ¬ вҐ¬ вЁЄ! ‚ўҐ¤Ё зҐвўҐавм ®в 1 ¤® 4:');readln(b);
goto 2; end;
end;
writeln('Є Єго дЁЈгаг ўл Ўл е®вҐ«Ё ўЁ¤Ґвм ў ', b, ' зҐвўҐавЁ: (Є:Єў ¤а в, в:ваҐгЈ®«м­ЁЄ)');

readln(c);
d:=detect;
initgraph(d, m, 'c:\tp\bgi');
setcolor(a);
if ((c='t') and (b=2)) then begin
line(10, 10, 100, 100);
line(100, 100, 150, 100);
line(150, 100, 10, 10);
end;
if ((c='t') and (b=1)) then begin
line(400, 10, 600, 10);
line(600, 10, 600, 200);
line(600, 200, 400, 10);
end;
if ((c='t') and (b=3)) then begin
line(10, 250, 200, 300);
line(200, 300, 310, 470);
line(310, 470, 10, 250);
end;
if ((c='t') and (b=4)) then begin
line(330, 250, 330, 400);
line(330, 400, 500, 280);
line(500, 280, 330, 250);
end;
if ((c='k') and (b=2)) then begin
rectangle(100, 100, 120, 230);
end;
if ((c='k') and (b=1)) then begin
rectangle(330, 10, 380, 230);
end;
if ((c='k') and (b=3)) then begin
rectangle(100, 260, 240, 400);
end;
if ((c='k') and (b=4)) then begin
rectangle(400, 300, 500, 400);
end;
setcolor(13);
line(320, 0, 320, 480);
line(0, 240, 640, 240);
outtextxy(322, 5, 'Y');
outtextxy(630, 230, 'X');

readln;
end.