1.Lặp 1 lần
2.a)For i:=100 downto 1 do write('A');
b)For i:=1 to 5 do write('A');
c)x:=10; while x=10 do x:=x+5;
d)Hợp lệ!
4.Uses crt;
var n,i:longint; s:real;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do s:=s+1/i;
writeln(s:0:5);
readln
end.