program rectangle_area;
var
a, b: integer;
area: integer;
begin
{ генерируем случайные значения для a и b }
Randomize;
a := Random(16) + 5; { диапазон случайных чисел от 5 до 20 }
b := Random(16) + 5;
{ вычисляем площадь прямоугольника }
area := a * b;
{ выводим результат }
writeln('Ширина прямоугольника: ', a);
writeln('Высота прямоугольника: ', b);
writeln('Площадь прямоугольника: ', area);
readln;
end.