Помогите составить программу в паскаль!!!!!

Uses crt;
var
  otvet: real; a,b,z12,z1,z2,x :integer;

begin
textcolor(random(2,15));
  write('Задачка : ');
  textcolor(random(1,15));
  readln(z12);
  if (z12lt;1) or (z12gt;2) then
  begin
  textcolor(4);
  writeln('Таковой задачки нет!');
  textcolor(random(1,15));
  end;
  if z12=1 then
  b:=10;
  for a:=1 to b do
  begin
  otvet:=(sqrt(a)+sqr(a)*a)*a;
  textcolor(random(1,15));
  writeln(a,') ',otvet);
  end;
  if z12=2 then
  b:=40;
  for a:=0 to b do
  if (a mod 7=0) and (agt;0) then
  begin
  textcolor(random(1,15));
  writeln(a,') ',a);
  end;
end.