Пожалуйста посчитайте пожалуйста решать в паскале

0

x,y: integer;

    readln(x);   // Вводим -19

    (x<=0) y:=0;

    (x>0) (x<=1) y:=x;

    (x>1) y:=x*x;

    writeln(y);   // Получаем 0

.