Написать алгоритм и программу решения следуa длина прямоугольника а см а ширина на 5 см меньше найти периметр

Pascal
Program Perimeter
var a, b, p: real;
begin
readln(a);
b := a - 5;
P := 2*a + 2*b;
Writeln(p);
End.

Алгоритм: вводим а, считаем b, затем получаем p и выводим его на экран.