Напишите программу вычисляющую площадь и периметр прямоугольника. Стороны прямоугольника вводятся с клавиатуры.

Var

a, b, n, p: integer; / / Переменные целочисленного типа.

begin

write ('Длина: ') ; readln (a) ; / / Задаём длину нашему треугольнику.

write ('Ширина: ') ; readln (b) ; / / Задаём ширину нашему треугольнику.

n:=a*b / / Формула что-бы узнать площадь прямоугольника.

write ('Площадь: ', b) ; / / Выводим площадь на экран.

p:=2*a+2*b; / / Формула что-бы узнать периметр треугольника.

write ('Периметр: ', p) ; / / Выводим периметр на экран.

end.

Сделал программу на PascalABC, в файле.