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

Число выведенное на экран:

y = 0

Программа:

var x,y : Integer;

begin

x := -1;

if x <= 0 then y := 0

   else if x <= 1 then y := x

       else y := x * x;

writeln('x = ', y);      

end.

данное слово - центрирование

1)

var

x,y,s: real;

begin

readln(x,y);

s: =abs(x*y);

writeln(s: 8: 2);

end.

2)

var

a: integer;

begin

readln(a);

if a mod 2=0 then writeln("четное число")

else  writeln("нечетное число")ж

end.