1.
begin
var a,b:real;
read (a,b);
writeln (Периметр = ,(a+b)*2, Площадь = ,a*b);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.