Даны стороны прямоугольника a и b .напишите программу вычисления его площади (s=ab). на паскале

Program square;
var   
      a,b:integer;   
      S:integer;
begin
read(a,b);
S:= a*b;
writeln(S);
end.