program one;
var z, x :integer;
begin
writeln('Введите Z');
readln(z);
x:=sqr(30+z);
writeln('ОТВЕТ: X=',x);
end.
Объяснение:
sqr() возводит значение в квадрат
program one;
var z, x :integer;
begin
writeln('Введите Z');
readln(z);
x:=sqr(30+z);
writeln('ОТВЕТ: X=',x);
end.
Объяснение:
sqr() возводит значение в квадрат