USES crt;
VAR a,b:integer;
BEGIN
clrscr;
write('Nhap so thu nha:'); readln(a);
write('Nhap so thu hai:'); readln(b);
write('Tich cua 2 so do la:',a*b);
readln;
END.
program tin_hoc_8;
uses crt;
var a,b,T:integer;
begin
clrscr;
write('nhap so nguyen a,b');
read(a,b);
T:=a*b;
writeln('tich hai so nguyen la' ,T:4:2);
readln
end.