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

Program Suka;
uses
Graph, CRT;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
ch:char;
p:pointer;
size:word;
i, x1, y1:integer;
x, y, s:real;

Procedure Ris;

begin
SetBkColor(0);
ClearDevice;
SetColor(11);
Circle(35, 35, 30);
SetFillStyle(1, 14);
FloodFill(20, 20, 11);
Size := ImageSize(0,0,70,70);
GetMem(P, Size);
GetImage(0,0,70,70,P^);
ClearDevice;
end;


begin
grDriver := Detect;
InitGraph(grDriver,grMode,'');
Ris;
{ ch:=' ';
PutImage(300+x, 200, P^, NormalPut);
ch:=#1;
while (ch<>#13) or (ch<>#27) do begin
ch:=readkey;
case ch of
#72: x:=x-5;
#80: x:=x+5;
#75: y:=y+5;
#77: y:=y-5;
#27 :exit;
end;
PutImage(300-y, 200+x, P^, NormalPut);
end; }s:=0;Randomize;
For i:=1 to 4000 Do begin
x:=x+0.005;
y:=sin(x);
PutImage(10+Round(30*x), 220+Round(100*y), P^, NormalPut);
SetColor(random(100));
SetTextStyle(6, 0, 4);
OutTextXY(round(30*x)-20, 220+round(100*y)-20, 'Fuck');

end;
Readln;
end.