Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x,если0<x≤1x2,если x>1. (y:3:0)
Запусти программу и введи значение x=9.​

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.

Подробнее - на -

Объяснение: