Program qtruong;
Uses crt;
Var a, b: integer;
n, s, t, c: real;
Begin
Clrscr;
Write('Nhap 2 so a va b: `); readln(a, b);
n:=a + b;
s:=a*b;
t:=a-b;
c:=a/b;
Writeln('Tong cua 2 so do la: ',n);
Writeln('Tich cua 2 so do la: ',s);
Writeln('Hieu cua 2 so do la: ',t);
Writeln('Thuong cua 2 so do la: ',c);
Readln
End.
===========
Program qtruong;
Var r, a, b; integer;
s, s1, p, p1: real;
Const pi = 3.14;
Begin
Clrscr;
Write('Nhap a va b: '); readln(a, b);
Write('Nhap r: '); readln(r);
s:=sqr(r)*pi;
p:=2*r*pi;
s1:=a*b;
p1:=(a+b)*2;
Writeln('Chu vi hinh tron la: ',p);
Writeln('Dien tich hinh tron la: ',s);
Writeln('Chu vi hinh chu nhat la: ',p1);
Writeln('Dien tich hinh chu nhat la: ',s1);
Readln
End.
