Question

Запишите программу на языке Паскаль согласно заданному алгоритму

Answer 1

var A, B, C, D, E, Y: integer;
BEGIN
read (A);
B:=A*A;
C:=B+4;
D:=C*C;
E:=D/7;
Y:=E+5;
write (Y);
END.