(3+s)2 на языке Паскаль.
Ответ
program Hello;
var s,result : real;
begin
writeln('s=');
readln(s);
result := sqr(3 + s);
writeln(result:8:0);
end.