daraprelj

var b,a,S:Integer;

begin

Writeln('Напишите длины сторон прямоугольника');

readln(a,b);

S:= a*b;

WriteLn('Площадь прямоугольника =',S);

end.