Пусть пользователь вводит 2 целых числа - длины сторон прямоугольника. Составьте программу вычисления площади и периметра прямоугольника.

var a, b:integer;beginwriteln ('Введите стороны a и b');writeln ('Введите сторону a');readln (a);writeln ('Введите сторону b');readln (b);writeln;writeln ('Периметр = ', (a+b)*2);writeln ('Площадь = ', a*b);readln;end.