Рассчитайте площадь прямоугольника в Паскале
var
a,b,s: integer;
begin
readln (a);
readln (b);
s:= a*b;
writeln (s);
end.