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.