Программы на языке PASCAL

//Разложить введенное с клавиатуры число на простые множители
Var n,i,s:integer;
begin
    read(n);
      i:=2;
      s:=1;
    while n1 do begin
        while (n mod i=0) do begin
                      n:=n div i;
                      write (i,'*');
                      s:=s*i;
                              end;
        i:=i+1;
                  end;
    write ('=',s);
end.

//Найдите все числа в промежутке от n до k, которые сами делятся и сумма цифр числа делится на 4.
Var n,k,s,h,i,ii,kol:integer;
  begin
        read(n,k); kol:=0;
        For i:=n to k do begin
                        ii:=i; s:=0;
                        if (i mod 4=0) then  begin
                                        while ii0 do begin
                                            h:=ii mod 10;
                                            ii:=ii div 10;
                                            s:=s+h;
                                                      end;
                                  if (s mod 4=0) then begin
                                                        inc(kol);
                                                        writeln(i,' ');
                                                      end;
                                                end;
                          end;
        if kol=0 then writeln ('Таких чисел не нашли')
                else write ('Нашли ',kol,' чисел');
  end.

{Программа сравнивает одну строку с другой. Если у строк одинаковые символы, но на разных местах(заглавные буквы считаются различными с строчными), то программа пишет 1, если нет - 0 .}
//Задача решена на 50%
Var s1,s2:string;
    k,i,n1,n2,p,n:integer;
begin
    readln(s1); readln(s2);
    n1:=length(s1);  n2:=length(s2);
    if n1=n2 then begin
      For i:=1 to n1 do begin
              p:=pos(s1[i],s2);
            if p=0 then begin
                          write('0');
                          break;
                        end
                    else delete(s2,p,1);
                      end;
                    if length(s2)=0 then writeln('1')
                    else writeln('0');
                  end
              else writeln('0');
      end.

.