Câu 1:
a, FOR biến đếm:=giá trị đầu TO giá trị cuối DO câu lệnh;
b, for a:=-5 to 5 do writeln('A');
c, WHILE điều kiện DO câu lệnh;
d, while a<>5 do a:=a+1;
Câu 3:
program tinh_tong;
uses crt;
var i, n, s: integer;
begin
clrscr;
write('Nhap so n= '); readln(n);
s:=0; i:=0;
while i<=n do begin i:=i+1; s:=s+i; end;
writeln('S = ',s);
readln
end.
CHÚC BẠN HỌC TỐT!!!