Program Bai10;

Uses crt;

Var a,b,c,d,e,f,g,h: Real;

Begin

Clrscr;

Write('Nhap vao 2 so thuc: '); Readln(a,b);

Writeln('Phep tinh muon thuc hien: ');

Writeln('1: cong');

Writeln('2: tru');

Writeln('3: nham');

Writeln('4: chia');

Writeln(' Nhap phep tinh muon thuc hien: '); readln(c);

If c=1 then writeln('ket qua la: ',a+b:4:2);

if c=2 then writeln('ket qua la: ',a-b:4:2);

if c=3 then writeln('ket qua la: ',a*b:4:2);

if c=4 then writeln('Ket qua la: ',a/b:4:2);

readln;

end.

program ten;

uses crt;

var a, b, tong, hieu, tich : integer;

      thuong : real;

begin

clrscr;

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

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

tong := a + b ;

hieu := a - b;

tich := a * b ;

thuong := a/b;

writeln('tong hai so la :', tong);

writeln('hieu hai so la :', hieu);

writeln('tich hai so la :', tich);

writeln('thuong hai so la :', thuong:4:2);

readln

end.