Câu 3:

Program baitap;

Uses crt;

Begin

Clrscr;

Writeln('Vong troi dat doc ngang ngang doc');

Writeln('No tang bong vay tra tra vay');

Writeln('Chi lam trai nam bac dong tay');

Writeln('Cho phi suc vay vung trong bon be');

Readln

End.

Câu 4:

(2) Sửa lại: Var a,b,s:Real;

(4) Sửa lại: Write('Nhap so nguyen a:'); readln(a);

(6) Sửa lại: S:=a+b;

(7) Sửa lại: Write('Tong cua hai so moi nhap la:',S);

Câu 3 :

program sksk;

uses crt;

begin

clrscr;

writeln('Vong tron dat doc ngang ngang doc');

writeln('No tang bong vay tra tra vay');

writeln('Chi lam trai nam bac dong tay');

writeln('Cho phi suc vay vung trong bon be');

Câu 4 :

2) Var a, b, s : real;

4) Write('Nhap so nguyen a :');readln(a);

6) S := a + b;

7) Write('Tong cua hai so moi nhap la :', S);