Написать программку: 1)Ввести целое число Х и найти, является ли число

1.

program raf105;

var a:integer;

begin

write('Введите число: ');

readln(a);

if alt;0

 then writeln('Число отрицательное')

 else writeln('Число положительное');

end.

2.

program raf105;

var a,b,c:integer;

begin

write('Введите 3 числа: ');

readln(a,b,c);

if (agt;b) and (agt;c)

 then writeln('Большее ',a);

if (bgt;a) and (bgt;c)

 then writeln('Большее ',b);

if (cgt;b) and (cgt;a)

 then writeln('Большее ',c);

end.

Язык программирования PascalABC