Запиши программу на языке паскаль для:   y=⎧⎩⎨⎪⎪0,еслиx≤0x,если01.    (y: 3: 0)

запусти программу и введи значение  x=14.

  10

​

var x: integer;

begin

readln(x);

if (x=0) or (x<0) then

write(0)

else

if (x>1) then

write(x*x)

else

write(x);

end.

Вроде как так, с точками с запятой, надеюсь, не ошиблась.

При х=14 значение 'у' будет 196.