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

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