Составить программу вычисляющую значение функции у=a*a +3a+1 при вводимом.значении a **...

Question

Составить программу вычисляющую значение функции у=a*a +3a+1 при вводимом.значении a на Паскале

Answer 1

Program chisla25;
uses crt;
var
a,y:integer;
begin
writeln('введите число');
readln(a);
y:=a*3;
a:=a*a;
y:=a+y;
y:=y+1;
readln(y);
end.

Comments

Вроде бы Endclass, а не end.

---

end

---

ну по крайней мере в версии Pascal ABC будет end