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

16

Все уже

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);END3)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.Вообщем вот. Программки "Фигня", если более сложные нужно написать, то напиши сюда.