var
a,b:integer;
begin
write('Введите смежные стороны прямоугольника: ');
readln(a,b);
write('Его площадь равна: ',a*b);
end.
var
a,b:integer;
begin
write('Введите смежные стороны прямоугольника: ');
readln(a,b);
write('Его площадь равна: ',a*b);
end.