2)

uses crt;
var i: longint;

function prime(n: longint): boolean;
var i: longint;
begin
    if n < 2 then exit(false);
    for i:=2 to trunc(sqrt(n)) do if n mod i = 0 then exit(false);
    exit(true);
end;

begin
clrscr;
    for i:=2 to 97 do if prime(i) then write(i, ' ');
readln;
end.

3)

uses crt;
var n: longint;

procedure solve(n: longint);
var i, cnt: longint;
begin
    for i:=2 to trunc(sqrt(n)) do
        if n mod i = 0 then 
            begin
                cnt:=0;
                while n mod i = 0 do 
                    begin
                        inc(cnt);
                        n:=n div i;
                    end;
                write(i, '^', cnt);
                if n <> 1 then write('.');
            end;
    if n <> 1 then write(n, '^', 1);
end;

begin
clrscr;
    readln(n);
    solve(n);
readln;
end.