Помогите, пожалуйста, написать программы!!! Очень нужно!! Язык - паскаль!
1) вычислить количество введенных с клавиатуры чисел. Окончанием служит ввод значения x.
2) вывести максимальное из чисел, вводимых с клавиатуры. Окончанием служит ввод значения x.
3) вывести произведение 20 чисел вводимых с клавиатуры.
4) вычислить произведение чисел, вводимых с клавиатуры. Окончанием служит ввод значения x.

1) Program n1;Var a,n:integer;BEGINrepeatreadln (a);n:=n+1;until a=0; / если брать окончание ввода за 0END.2) Program n2;Var a,max:integer;BEGINrepeatreadln (a);if (a>max) then max:=a; / находим макс. числоuntil a=0;writeln (max);END.3) Program n3;Var a,b,n:integer;BEGINb:=1;repeatreadln (a);b:=b*a;n:=n+1;until n=20;writeln(b);END.