bài 1:

program tinh_dien_tich_hcn;

uses crt;

var a,b,s: integer;

begin

clrscr;

Write ('nhap chieu dai hinh chu nhat: ');  readln (a);

write ('nhap chieu rong hinh chu nhat: ');  readln (b);

s:=a*b;         {chỗ này mình sửa nè}

Write ('dien tich hinh chu nhat can tim la: ',s);  {chỗ này mình sửa nè cái chỗ 's thành  ',s}

readln;    {thêm dấu chấm phẩy}

end.

bài 2:

program tinhtong;

uses crt;

var i,s: byte;

begin

clrscr;

s:=0;

for i:=1 to 5 do s:=s+i;

writeln ('1+2+3+4+5= ',s);

readln;

end.

bài 3:

program khong_biet;

uses crt;

var i,n,s: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do s:=s+i;

writeln ('tong s=1+2+3+...+',n,' = ',s);

readln;

end.