Câu 1 : var a, b, c : real;

Câu 2 : readln(a, b, c);

Câu 3 : if (a > b) and (a > c) then write('A la so lon nhat');

Câu 4 : if (b > a) and (b > c) then write('B la so lon nhat');

Câu 5 : if (c > a) and (c > b) then write('C la so lon nhat');

Câu 6 : var M : byte; const N = 2;

Câu 7 : write('M + N = ', M + N);

Câu 8 : var C, R, S : real; const sopi = 1.1215926;

Câu 9 : C := 2 * R * sopi;

Câu 10 : S := R * R * sopi;

Câu 11 :

writeln('chu vi = ', C);

writeln('dien tich = ', S);

writeln('hang so = ', sopi);

1. Var A,B,C:real;

2. Readln(A,B,C);

3. If (A>B) and (A>C) then writeln('A la so lon nhat');

4. If (B>A) and (B>C) then writeln('B la so lon nhat');

5. If (C>A) and (C>B) then writeln('C la so lon nhat');

6. Var M:integer; 

    Const N=29;

7. Write('M+N=',M+N);

   Write('M-N=',M-N);

   Write('M*N=',M*N);

   Write('M/N=',M/N:5:2);

   Write('M mod N=', M mod N);

   Write('M div N=', M div N);

8.Var C,S,R:real;

   Const sopi=1.1415926;

9. C:=R*2*sopi;

10. S:=R*R*sopi;

11. Writeln('Chu vi:',C:5:2);

      Writeln('Dien tich:',S:5:2);

      Writeln('Gia tri hang so:',sopi);