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