Объяснение:
Program Uravnenie;
Var t,y:real;
begin
writeln('введите t ');
readln(t);
y:=sqr(8+t);
writeln ('y=',y);
end.
