Решить в pascalabc . вот какая должна получится программа: "пока пользователь вводит с клавиатуры положительные числа, умножайте их.

Var
  n, mult, count: integer;
begin
  n := 1;
  mult := 1;
  while n > 0 do
  begin
    inc(count);
    mult := mult * n;
    read(n);
  end;
  writeln('Количество чисел: ', count - 1);
  writeln('Произведение чисел: ', mult);
end.

  program proga_25_1;
 Var
A: text;     
i,j,n,m : byte;     
 d: string;     
Sim:char;
 Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }               
read(d);                                       
 Assign(A,d);               
 rewrite(A);                   
 write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                     
  readln(m);                                     
for I:=1 to n do                   
 begin                         
 Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                               
 writeln(A);                 
  end;                         
  close(A);
end.     

Program proga;
Var  
p: text;   
  i, n : byte;     
 s,min,m: string;     
 Begin                         
 write('Введите имя файла   ');  {Например: C:.txt}                         
 read(m);
Assign(p,m);      
  reset(p);
    read(p,s);
 min:=s;   
 n:=100;   
 for i:=1 to n do   
 begin     
readln(p,s);                                      
while not eof(p) do  
 {нахождение минимальной строки}       
   begin         
 readln(p,s);       
   if length(s) <= length(min) then        
  min:=s;         
 end;          
 end;
close(p);   
 write('самая короткая строка: ',min);
End.