перевести в паскаль. мне написали прогу ток мне надо в паскале

Question

перевести в паскаль. мне написали прогу ток мне надо в паскале

<(ShadoW)> Ученик (146), закрыт 13 лет назад

условие:
Вводится последовательность полож. целых чисел после которых вводится 0(признак конца ввода) определить
сумму чисел, их кол-во , мин и макс число и их порядковые номера
прога не в паскале
Program GG;
Var
q as LongInt, Sum as Longint, Min as Longint, Max as Longint, MinNomer as Longint, MaxNomer as Longint;
a:array[1..100] as Longint;
begin
loop
q:=q+1;
readln(a[q]);
until a=0 (бесконечный цикл пока не будет введен "0")
Min:=0;
Max:=0;
For i:=0 to Ubound(a);
begin

If a>Max then (Ищем максимальный элемент)
begin
Max:= a; (Записываем его значение)
MaxNomer:=i; (Записываем его номер)
end;

if a<min>
Min:= a; (Записываем его значение) 
MinNomer:=i; (Записываем его номер)
end;

Sum:=Sum+a; (Считаем сумму)
end;

writeln('Sum = ' & sum);
writeln('Min = ' & Min & ' Nomer Min =' & MinNomer);
writeln('Max = ' & Max & ' Nomer Max =' & MaxNomer);
end.

Дополнен 14 лет назад

тот, кто мне это написал забыл паскаль

Answer 1

По заданию не видно, что нужно использовать массивы.
Поэтому можно вот так:
var
Kol, N, Nmin, Nmax, Pmin, Pmax : Word;
begin
WriteLn('Вводите натуральные числа. ');
WriteLn('Для окончания введите 0.');
Kol := 0;
Nmin := $FFFF; Pmin := 0;
Nmax := 0; Pmax := 0;
repeat
Inc(Kol);
Write('Введите ', Kol, ' число : '); ReadLn(N);
if N > Nmax then begin Nmax := N; Pmax := Kol; end
else if (N > 0) and (N < Nmin) then begin Nmin := N; Pmin := Kol; end;
until N = 0;
WriteLn('Введено чисел ', Kol-1);
if Kol > 1 then
begin
WriteLn('Минимальное число ', Nmin, ' введено по счёту ', Pmin);
WriteLn('Максимальное число ', Nmax, ' введено по счёту ', Pmax);
end;
end.

Answer 2

Впервые такое вижу. Дикая смесь Васика, Пасквиля и HTML. Написавший тебе это явно с башкой не дружит