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

var a,b, P: real;

begin

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

readln(a,b);

P:=2*(a+b);

write('P = ',P);

readln;

end.

var a,b, P: real;

begin

write

readln(a,b);

P:=2*(a+b);

write('P = ',P);

readln;

end.