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

Program n1;
var a,b: real;
begin
write('введите стороны прямоугольника через пробел: ');
readln(a,b);
write('P=',(a+b)*2);
end.