Hãy viết chương trình tích của 2 số nguyên a và b Mọi ng làm giúp mình với ạ mình cần luôn trong ngày hôm nay mình cảm ơn

xin hay nhất

program bt;

uses crt;

var a,b,p:integer;

begin

clrscr;

write(‘nhap so nguyen a=’);readln(a);

write(‘nhap so nguyen b=’);readln(b);

P:=a*b;

writeln(‘p=’,p);

readln;

end.