Question

Y= {0 при x≤0
{x² при x>0
Запустить программу и выполнить при таких условиях:
1)при x= -2
Ответ:0
2)при x=2
Ответ: 4
Мне нужна программа,срочно

Answer 1

Var X,Y:real;
Begin
Write('x = ');ReadLn(x);
if x <= 0 then Y:=0
else Y:=X*X;
WriteLn('Y = ',Y);
End.