Var a,b,c:real;
Begin
Write(Введите длину стороны а и b: ); readln(a,b);
c:=a+b*2;
writeln(Периметр комнаты равен: ,c );
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.