1- написать программу, умеющую проверить положительно ли введённое число с клавиатуры. 2- с клавиатуры введено 2 числа, вывести на экран. 3- ввести 5 чисел, вычислить и написать их сумму и произведение. и в ответе написать, что больше сумма или произведение. 4- с клавиатуры введено 3 числа. найти наибольшее число.

1)
VAR A: integer; B: string;BEGINB:=('Число отрицательно.');READLN(A);IF A>0 THENB:=('Число положительное.');writeln(B);end.
2)
VAR A,B: integer;BEGINREADLN(A);READLN(B);WRITELN('1 число: ',A);WRITELN('2 число: ',B);END
3)
VAR a,b,c,d,e,t,y: integer;BEGINreadln(a);readln(b);readln(c);readln(d);readln(e);t:=a+b+c+d+e;y:=a*b*c*d*e;writeln(t);writeln(y);END.
4)
var a,b,c: integer;beginwrite('1 число: ');readln(a);write('2 число: ');readln(b);write('3 число: ');readln(c);write('Наибольшое из введёных чисел: ');if (a>b) and (a>c) thenwriteln(a)elseif (b>a) and (b>c) thenwriteln(b)elsewriteln(c);end.
Вообщем вот. Программки "Фигня", если более сложные нужно написать, то напиши сюда.