program vasd;
var a,m : integer;
begin
writeln('Введите чему равны стороны прямоугольника ');
read(a,m);
writeln('Площадь прямоугольника равна ', a * m);
end.
program vasd;
var a,m : integer;
begin
writeln('Введите чему равны стороны прямоугольника ');
read(a,m);
writeln('Площадь прямоугольника равна ', a * m);
end.