Câu 1:

program Kiem tra loi; → program Kiem_tra_loi;

var a, b: real;

const c:=3; → const c=3;

begin

a:=200 → a:=200;

b:=a/c;

wrieln( ketquala a,b); → wrieln('ketquala', a*b);

end.

Câu 2:

begin

 writeln('Ket qua cua phep tinh 2.4^3+6/(25-16)-8 la: ', 2*4*4*4+6/(25-16)-8);

 readln

end.

Câu 3:

Cú pháp gán giá trị cho biến: <tên biến> := <giá trị của biến>; 

Chương trình hoán đổi 2 giá trị x và y:

uses crt;

 var x, y, tam: integer;

begin

 clrscr;

 write('Nhap x, y: '); readln(x,y);

 tam:=x;

 x:=y;

 y:=x;

 writeln('Sau khi hoan doi: ');

 writeln('x=', x);

 writeln('y=', y);

 readln

end.

Câu 1:

program Kiem tra loi; → program Kiem_tra_loi;

var a, b: real;

const c:=3; → const c=3;

begin

a:=200 → a:=200;

b:=a/c;

wrieln( ketquala a,b); → writeln('Ketquala: ',a,b);

end.

Câu 2:

Uses crt;
Var x: real;
Begin
Clrscr;
x:=2*4*4*4+6/(25-16)-8;
Writeln('Ket qua la: ',x);
Readln
End.

Câu 3:

- Cú pháp: <tên biến>:=<biểu thức/giá trị>;

- Hoán đổi 2 giá trị x và y:

Uses crt;
Var x, y, t: real;
Begin
Clrscr;
Write('Nhap x va y: '); readln(x, y);
t:=x;
x:=y;
y:=t;
Writeln('x = ', x);
Writeln('y = ', y);
Readln
End.