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

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 (z12<1) or (z12>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 (a>0) then
  begin
  textcolor(random(1,15));
  writeln(a,') ',a);
  end;
end.