Lập chương trình tính s = a *b với a, b là số nguyên. giúp em ạ em cảm ơn

uses crt;

var a,b: integer;

s: longint;

begin

clrscr;

write (‘nhap a: ‘);  readln (a);

write (‘nhap b: ‘);  readln (b);

s:=a*b;

writeln (‘S= ‘,s);

readln;

end.