INPUT: Hai số thực a và b
OUTPUT: Số lớn hơn
Thuật toán:
+ Bước 1: Nếu a > b thì kết quả là "in ra a" và chuyển đến Bước 3
+ Bước 2: Nếu a < b thì kết quả là "in ra b"; ngược lại kết quả là "a bằng b"
+ Bước 3: Kết thúc thuật toán
 

Program bt1;

Uses crt;

var a : integer;

     S : real;

Begin

  write('Nhap a=');readln(a);</p><p>  S: = a*a;</p><p> writeln ('Dien tich la',S);

  writeln ('Chu vi la', C);

  readln

End.