uses crt;
var a,b:longint;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
writeln('tich cua hai so la: ',a*b);
readln;
end.
Viết chương trình tính tích hai số nguyên a,b.Vs a,b là 2 số nhập bất kì từ bàn phím(đề đúng đây, đề ở trên bị sai)
Program andanh;
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap so a: '); readln(a);
write(' nhap so b: '); readln(b);
write('Tich ',a,' va ',b,' la: ',a * b);
readln
end.