Question

Решить в Pascal ABC.
Пожалуйста, помогите)

Answer 1

program n1;
var x,y: real;
begin
read(x);
if x>=3 then y:=x*x+5 else y:=x-8;
writeln ("y=",y)
end.

Answer 2

Спасибо, я уже сама решила)