uses crt;
var A:array[1 ..100] of integer;
    i,n,s,j,tam:integer;
function nt(var n:integer):boolean;
var i:integer;
    ok:boolean;
begin
ok:=true;
        for i:=2 to n-1 do
        if n mod i=0 then ok:=ok and false;
        if n<=2 then nt:=false else nt:=ok;
end;
begin
clrscr;
write('Nhap so n: '); readln(n);
    for i:=1 to n do
        begin
                write('A[', i ,']=');
                readln(A[i]);
        end;
    for i:=1 to n-1 do
    for j:=i+1 to n do
        if A[i]>A[j] then
                begin
                        tam:=A[i];
                        A[i]:=A[j];
                        A[j]:=tam;
                end;
        write('Sap xep theo thu thu tang dan: ');
    for i:=1 to n do
    write(A[i],',');
    writeln;
write('Cac so trong day chia het cho 3: ');
        for i:=1 to n do
        if A[i] mod 3=0 then write(A[i],',');
s:=0;
        for i:=1 to n do
        if nt(A[i]) then s:=s+A[i];
writeln;
writeln('Tong cac so nguyen trong day: ',s);
readln
end.

var v,r:text;
n,m:integer;
s:string;
begin
assign(v,'input.txt');
reset(v);
readln(v,n,m,s);
assign(r,'output.txt');
rewrite(r);
case s of
 '*': write(r,n*m);
 '-': begin write(r,n-m,' '); write(r,m-n);end;
 '+': write({r,}n+m);
 '/': begin write(r,n/m:4:2,'  '); write(r,m/n:4:2);end;
end;
close(r);
end.