Написать программу ** паскале.Задача карандашом

Question

Написать программу на паскале.Задача карандашом

---

Answer 1

Program n1;
var x,y: real;
begin
readln(x);
if x=3 then y:=10 else y:=2;
writeln(y);
end.