Bài 1:
program bai_giai;
uses crt;
var f,g:text;
n,t:longint;
begin
clrscr;
Assign(f,'SO.INP'); reset(F);
Assign(g,'SO.OUT'); rewrite(g);
t:=0;
while not eof(f) do
begin
readln(f,n);
if n<0 then write(n,' ');
if (n mod 3=0) and (n mod 5=0) then t:=t+n;
end;
write(g,t);
close(f); close(g);
readln;
end.
Bài 2:
program bai_giai;
uses crt;
var f,g:text;
n,d:longint;
begin
clrscr;
Assign(f,'BAITAP.INP'); reset(F);
Assign(g,'SKQ.OUT'); rewrite(g);
d:=0;
while not eof(f) do
begin
read(f,n);
if n mod 5=0 then d:=d+1;
if sqrt(n)=trunc(sqrt(n)) then write(g,n,' ');
end;
write(d);
close(f); close(g);
readln;
end.