Составить программу вычисления площади прямоугольника по введенным в диалоге двум сторонам- Pascal(Паскаль)

uses crt;
var
a, b, s: integer;
begin clrscr;
write('a=');
read(a);
write('b=');
read(b);
s:=a*b;
writeln('s=', a,'*', b,'=', s);
readkey;
end.