Помогите написать программы..

Задача 1

Напишите программу, умеющую проверить положительное ли число, введённое с клавиатуры

Задача 2

Напишите программу в которой из двух введенных с клавиатуры чисел, большее из них выведется на экран

Задача 3

Напишите программу которая при вводе пяти чисел вычисляла бы их сумму и произведение, и выводила на экран, что из этого больше.

1)Var x: real;Beginwriteln ('Введите число');readln (x);if x>0 thenwriteln ('Число ', x, ' положительное')elseif x<0 thenwriteln ('Число ', x, ' отрицательное')elseif x=0 thenwriteln ('Число ', x, ' не является ни положительным, ни отрицательным');End.2.Var x, y: real;Beginwriteln ('Введите два числа');readln (x,y);if x>y then writeln (x)elseif x<y then writeln (y)elseif x=y then writeln ('Числа равны');End.3.Var x, sum, pr: real;i: integer;Beginsum:=0;pr:=1;For i:=1 to 5 dobeginwrite ('Введите число: ');readln (x);sum:=sum+x;pr:=pr*x;end;writeln ('Сумма чисел = ', sum);writeln ('Произведение чисел = ', pr);if sum>pr then writeln (sum)elseif sum<pr then writeln (pr)elseif sum=pr then writeln ('Сумма и произведение равны');End.