2 про диаграмму и 4 еще похоже на правильное
32*1=32. 32 бит в этих словах.
var a: real;
begin
read(a);
if (a mod 2=0) and(a<>0) then write('четное');
if (a mod 2=0) and(a<>0) then write('не четное');
if a=0 then write('нуль');
if a>0 then write('положительное');
if a<0 then write('отрицательное');
if a=0 then write('нуль');
end.
Var a,b,c:real;
Begin
Write('Введите 2 числа: '); readln(a,b);
s:=a+b;
Writeln('Сумма этих чисел = ',s);
end.