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

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.

Comments

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