program HelloWorld;

begin
  Writeln('Xin chào, thế giới!');
  Writeln('Tôi đang học Pascal.');
end.

program TenChuongTrinh;  { Dòng 1: tên chương trình }

uses
  CRT;               { Thư viện console (tùy chọn) }

const                  { Khai báo hằng số }
  PI = 3.14159;

var                    { Khai báo biến }
  ten: String;
  tuoi: Integer;

begin                  { Bắt đầu phần thân }
  Writeln('Hello!');
end.                   { Kết thúc chương trình }

{ Đây là comment dạng ngoặc nhọn }

(* Đây là comment dạng ngoặc sao
   Có thể viết nhiều dòng *)

tuoi := 20; { Comment cuối dòng }

var
  tuoi: Integer;
  chieu_cao: Real;
  ten: String;
  gioi_tinh: Char;
  da_tot_nghiep: Boolean;

begin
  tuoi := 22;
  chieu_cao := 1.72;
  ten := 'Nguyễn Văn An';
  gioi_tinh := 'M';
  da_tot_nghiep := False;
end.

var
  a, b: Integer;
  ten: String;

begin
  Write('Nhập tên của bạn: ');
  Readln(ten);            { Đọc chuỗi, dừng khi Enter }

  Write('Nhập hai số: ');
  Read(a);                { Đọc số, không xuống dòng }
  Readln(b);             { Đọc số, xóa phần còn lại của dòng }

  Writeln('Tổng: ', a + b);
  Writeln('Xin chào, ', ten, '!');
end.

var x: Real;
begin
  x := 3.14159;
  Writeln(x);           { In dạng khoa học: 3.14159000E+00 }
  Writeln(x:8:2);       { Rộng 8 ký tự, 2 chữ số thập phân: "    3.14" }
  Writeln(x:0:4);       { Tự động rộng, 4 thập phân: "3.1416" }
end.

{ So sánh: =  <>  <  >  <=  >= }
a = b    { bằng }
a <> b   { khác nhau }
a <= b  { nhỏ hơn hoặc bằng }

{ Logic: and  or  not }
(a > 0) and (a < 100)   { a trong khoảng 1..99 }
(x = 0) or (y = 0)      { ít nhất một trong hai bằng 0 }
not (done)               { phủ định }

program DienTichHinhTron;
const
  PI = 3.14159265;
var
  r, dien_tich: Real;
begin
  Write('Nhập bán kính: ');
  Readln(r);
  dien_tich := PI * r * r;
  Writeln('Diện tích = ', dien_tich:0:2);
end.

program TinhBMI;
var
  can_nang, chieu_cao, bmi: Real;
begin
  Write('Cân nặng (kg): '); Readln(can_nang);
  Write('Chiều cao (m): '); Readln(chieu_cao);
  bmi := can_nang / (chieu_cao * chieu_cao);
  Writeln('BMI của bạn = ', bmi:0:1);
end.

program MayTinh;
var
  a, b: Integer;
  phep_tinh: Char;
begin
  Write('Nhập số thứ nhất: '); Readln(a);
  Write('Phép tính (+, -, *, /): '); Readln(phep_tinh);
  Write('Nhập số thứ hai: '); Readln(b);

  Write(a, ' ', phep_tinh, ' ', b, ' = ');

  case phep_tinh of
    '+': Writeln(a + b);
    '-': Writeln(a - b);
    '*': Writeln(a * b);
    '/': if b <> 0 then
           Writeln(a / b:0:2)
         else
           Writeln('Lỗi: chia cho 0!');
  else
    Writeln('Phép tính không hợp lệ!');
  end;
end.