uses crt;
var t,a,i:integer;
begin
clrscr;
a:=5;
t:=0;
for i:=1 to 20 do
begin
t:=t+a;
a:=a+5;
end;
writeln(t);
readln;
end.
Cấu trúc rẽ nhánh và lặp
uses crt;
var t,a,i:integer;
begin
clrscr;
a:=5;
t:=0;
for i:=1 to 20 do
begin
t:=t+a;
a:=a+5;
end;
writeln(t);
readln;
end.