var b,a,S:Integer;
begin
Writeln('Напишите длины сторон прямоугольника');
readln(a,b);
S:= a*b;
WriteLn('Площадь прямоугольника =',S);
end.
var b,a,S:Integer;
begin
Writeln('Напишите длины сторон прямоугольника');
readln(a,b);
S:= a*b;
WriteLn('Площадь прямоугольника =',S);
end.