BT. a)Kiểm tra số chẵn lẻ,nguyên tố b)-In ra các bội giữa 3 và 5 -Kiểm tra số chính phương Đang cần gấp làm trong pascal, tệp

var n,i: integer;

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

function cp(n: integer): boolean;
begin
    if sqrt(n)=trunc(n) then exit(true);
    exit(false);
end;

begin
    assign(input,'inp'); reset(input);
    assign(output,'out'); rewrite(output);
    readln(n);
    if n mod 2 = 0 then writeln('So chan') else write('So le');
    for i:=15 to n do begin
        if i mod 15 = 0 then write(i,' ');
    end;
    writeln;
    if cp(n) then write(n,' la chinh phuong') else write(n,' khong la chinh phuong')
end.