Не указано какую конкретно задачу нужно решить, поэтому выбрал наугад.
Решение задачи 3:
program ggg;var x,y,z: integer;beginwriteln('введи три числа');readln(x,y,z);if (x>0) and (y>0) and (z>0)thenwriteln('каждое из чисел положительно')elsewriteln('хотя бы одно из чисел положительно')end.