найти периметр прямоугольника ** языке паскаль

Question

найти периметр прямоугольника на языке паскаль

Answer 1

var a,b, P: real;

begin

write('vvedite dlini storon pramougolnika');

readln(a,b);

P:=2*(a+b);

write('P = ',P);

readln;

end.