program bt;
uses crt;
var A,i:integer;
begin clrscr;
A:=0;
while i<=50 do
begin
A:=A+i;
i:=i+1;
end;
Writeln('Tong gia tri:',A);
readln;
end.
program bt;
uses crt;
var B,i:integer;
begin clrscr;
B:=1;
while i<=100 do
begin
B:=B*i;
i:=i+1;
end;
Writeln('Tich gia tri:',B);
readln;
end.
Học Tốt nhé :>