Найти все делители для заданного числа n. паскаль

Uses crt; var i,n,m: integer; begin read(n); m: =n; i: =1; while i< =m do begin if n mod i=0 then begin write(i,' '); m: =(n div i); end; i: =i+1; end; write(n); end.

Var  n, i, sum1, sum2, buf: integer; begin  writeln('введите количество бросков');   readln(n);   sum1 : = 0;   sum2 : = 0;     i : = 0;         for i : = 1 to n do  begin    writeln('введите значения на кубиках после броска № - ', i, ' на кубике человека по имени а ');     readln(buf);       sum1 : = sum1 + buf;   end;         for i : = 1 to n do    begin    writeln('введите значения на кубиках после броска № - ', i, ' на кубике человека по имени b');     readln(buf);     sum2 : = sum2 + buf;   end;         if sum1 = sum2 then writeln('ничья') else      if sum1 > sum2 then writeln('победил человек по имени а') else      writeln('победил человек по имени b');     end.  как то так  

1. var s,s1: string; i: integer; begin readln(s); s1: =s; for i: =1 to length(s1) do begin if s1[i]='а' then s1[i]: ='б' else   if s1[i]='а' then s1[i]: ='б' else   if s1[i]='б' then s1[i]: ='а' else     if s1[i]='б' then s1[i]: ='а'; end; writeln(s1); end. 2. var s,s1: string; i,k: integer; begin readln(s); s1: =s; i: =1; k: =1; while pos(' ',s1)> 0 do begin delete(s1,1,pos(' ',s1)); k: =k+1; end; writeln(k); end. 3. var s,famil,s1,imya,otch: string; i: integer; begin readln(s); famil: =copy(s,1,pos(' ',s)-1); delete(s,1,pos(' ',s)); imya: =copy(s,1,1); delete(s,1,pos(' ',s)); otch: =copy(s,1,1); s1: =concat(imya,'.',' ',otch,'.',' ',famil); writeln(s1); end.