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

Question

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

---

Answer 1

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.

Comments

Покажи это учителю он 5 поставит

---

Ну можно без ответа?

---

Всмысле???

---

Ну без этой надписи

---

Так это тоже самое что и за место otvet написать с или а или b

---

Это обычная переменая

---

var
c: real;
a, b: integer;

begin
b := 10;
for a := 1 to b do
begin
otvet := (sqrt(a) + sqr(a) * a) * a;
writeln(a, ') ', c);
end;
end.

---

Можно так

---

О, спасибо огромное!!!!!!!!!

---

otvet это была переменая как сейчас и "C"