Question

№7
Нужно написать программу для Паскаля.
Помогите, плизз.
Заранее спасибо

Answer 1

program ganeevsky
Var: a,x:integer;
Begin
Readln x;
if x=<3 then
a:=x-8
else
a:=x*x+5;
Writeln (a);
End.