Введите два натуральных числа. Выведите на экран длины сторон прямоугольника, периметр и площадь.

program zz1;

var a, b, p:integer; / / вводим переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

writeln (' первая сторона прямоугольника = ', a); / / выводим ответы

writeln (' вторая сторона прямоугольника = ', b);

p:=2 * (b + a); / / находим периметр прямоугольника по формуле

writeln (' периметр прямоугольника = ', p);

writeln (' площадь прямоугольника = ', a * b);

end.