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.