program Kookie;
uses crt;
var a, b, S, P, T, H: integer;(với CT câu a)
a, b: integer;(với CT câu b)
begin
clrscr;
write(' phan tu thu nhat la:');
readln(a);
write('phan tu thu hai la:')'
readln(b);
*TH câu a:
T:= a+b;
S:=a*b;
H:=|a-b|;
P:= a/b;
writeln('tong hai so la :,'T);
Writeln(' tich hai so la: ,'S);
writeln(' Hieu hai so la:,'H);
writeln(' thuong hai so la:,'P);
readln
end.
*TH câu b:
if a> b then
writeln(' so lon la:,'a);
else
writeln('so lon la:'b);
readln
end.