Помогите простейший алгоритм в codegear

var a,b, P: real;

begin

write(' Введите длины сторон прямоугольника: ');

readln(a,b);

P:=2*(a+b);

write('периметр (P) = ',P);

readln;

end.