1)Стороны прямоугольника параллельны осям координат.Одна из вершин имеет координаты (0,0),координаты противоположной вершины задаются с клавиатуры.Вычислите площадь прямоугольника. 2)С клавиатуры вводится натуральное число.Если оно кратно двум,напишите "четное число",иначе напишите "нечетное число".

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.