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

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, в файле.