Bài 1:
program tinh_tong;
uses crt;
var n,s:integer;
begin
clrscr;
s:=0; n:=0;
while s<=1000 do
begin
n:=n+2;
s:=s+n;
end;
write('Tong la: ',s,' va khi do da tinh tong ',n,' so chan');
readln;
end.
Bài 2:
program diemkt;
uses crt;
var diem:array[1..100] of real;
n,i:byte;
begin
clrscr;
write('Nhap so hoc sinh: '); readln(n);
for i:=1 to n do
begin
write('Nhap diem ban thu ',i,': '); readln(diem[i]);
end;
writeln('Diem theo thu tu la:');
for i:=1 to n do writeln(diem[i]:0:2);
readln;
end.
