Program tinhtoan;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Nhap 2 so a va b:');

Readln(a,b);

Writeln('Binh phuong cua so a la:',a*a);

Writeln('Binh phuong cua so b la:',b*b);

Writeln('Tong cua hai so do la:',a+b);

Writeln('Tich cua hai so do la:',a*b);

If a>b then writeln('Hieu cua hai so do la:',a-b) 

           else writeln('Hieu cua hai so do la:',b-a);

If a>b then writeln('Thuong cua hai so do la:',a/b:6:3) 

           else writeln('Thuong cua hai so do la:',b/a:6:3);

Readln;

End.

program  nhap_AB;

uses crt;

var a,b:real;

begin

clrscr;

write('nhap so a: ');readln(a);

write('nhap so b: ');readln(b);

writeln('tong ab la: ',a+b);

writeln('hieu ab la: ',a-b);

writeln('tich ab la: ',a*b);

if b=0 then writeln('b=0 nen khong thuc hien duoc chuong trinh') else 

writeln('thuong ab la: ',(a/b):5:3);

readln;

end.