Tim va in ra man hinh so chinh phuong & so nguyen to

program timonguyento;
uses crt;
var a:array[1..200] of integer;
tong:integer;
i,j,n,b:byte; kt:boolean;
tbc:real;
begin
clrscr;
randomize;
write(`nhap n`);
readln(n);
for i:=1 to n do a[i]:=random(10001) - random(10001);
for i:=1 to n do write(a[i]:10);
writeln;
write(`cac so nguyen to la :`);
for i:=1 to n do
begin
kt:=true;if a[i]<2 then kt:=false;
if a[i]>=2 then for j:=2 to a[i]-1 do if a[i] mod j = 0 then kt:=false;
if kt=true then write(a[i]:5);
end;writeln;
write(`day so chinh phuong la:`);
for i:=1 to n do
if a[i]>=0 then

if trunc(sqrt(a[i])) = sqrt(a[i]) then write(a[i]:5);
readln;
end.

Người viết : 11A5 Quang Trung