roat16.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

var x,i,p,nr,max:integer;
    v1,v2:array[1..20] of integer;
begin
write('x=');readln(x);
nr:=0;
while x<>1 do
   for i:=2 to x do
      if x mod i =0 then
                    begin
                    p:=0;
                    while x mod i=0 do begin
                                       inc(p);
                                       x:=x div i;
                                       end;
                    inc(nr);
                    v1[nr]:=i;
                    v2[nr]:=p;
                    end;
max:=0;
for i:=1 to nr do
   if v2[i]>max then max:=v2[i];
for i:=1 to nr do
   if v2[i]=max then writeln(v1[i],' apare la puterea cea mai mare ',max);
readln;
end.