var x, y, S: byte;
begin
write('Введите длинну: ');
readln(x);
write('Введите ширину: ');
readln(y);
S:=x*y;
write('Площадь прямоугольника: ');
Writeln(S);
end.
var x, y, S: byte;
begin
write('Введите длинну: ');
readln(x);
write('Введите ширину: ');
readln(y);
S:=x*y;
write('Площадь прямоугольника: ');
Writeln(S);
end.