Нужно написание программы в "pascal"

Question

Условия: 
1. Найти максимальное число среди чисел, введенных с клавиатуры. Признак конца ввода - 0. Вывести количество введенных чисел. 
 
2. С помощью цикла While написать программу определения суммы всех нечетных чисел в диапазоне от 1 до 99 включительно.

Галина Иванова · Accepted Answer

Первая
n:=1;
while (chislo<>0) do
begin
readln(chislo);
if n=1 rhen max:=chislo; inc(n);
if chislo>max then max:=chislo;
end;
writeln(chislo);

Вторая
n:=1; sum:=0;
while n<=99 do if n mod 2 <>0 sum:=sum+n;
writeln(n);