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

#include <stdio.h>

int main(void)
{
/* Переменная для хранения числа */
double chislo;

/* Сообщение с запросом для пользователя */
printf("Введите ваше число: ");

/* Считывание числа в определенном формате в определенное место */
scanf("%f", &chislo);

/* Проверяем, является ли число большем нуля (положительным)*/
if (chislo > 0) {
/* Если да, то прибавляем единицу (операция инкремент) */
chislo++;
}
else {
/* Если число отрицательное, то вычитаем из числа двойку */
chislo -= 2;
}

/* Выводим результата */
printf("Результата: %f", chislo);

return NULL;
}

1.
алг
нач цел X
ввод X
если X>0 то 
X:=X+1
все
вывод X 
кон

2.
алг
нач цел X
ввод X
если X>0 то
X:=X+1
иначе
X:=X-2
все
вывод X 
кон

3.
алг
нач цел X
ввод X
 если X>0 то
  X:=X+1
 все
 если X<0 то
  X:=X-2
 все
 если X=0 то
  X:=10
 все
вывод X
кон

4.
алг
нач цел X,Y,Z,N
ввод X,Y,Z
N:=0
если X>0 то
N:=N+1
все
если Y>0 то
N:=N+1
все
если Z>0 то
N:=N+1
все
вывод N
кон

5.
алг
нач цел X,Y,Z,N,K
ввод X,Y,Z
N:=0
K:=0
если X>0 то
N:=N+1
иначе
K:=K+1
все
если Y>0 то
N:=N+1
иначе
K:=K+1
все
если Z>0 то
N:=N+1
иначе
K:=K+1
все
вывод N,K
кон

Самые наиболее простые варианты выбрал думаю в самый раз