Надо написать программу которая находит P прямоугольника

Vlad_AVS

Здравствуйте надо написать программу которая находит P прямоугольника код должен быть самым простым и если можно с инструкцией
1 ответ

Vlad_AVS

Var a,b:real;//объявляем переменные для ввода сторон
Begin
    write('Введите длины сторон(a,b): ');readln(a,b);//вводим стороны
    writeln('P = ',2*(a+b):0:2);//вычисляем по формуле
    readln;//задержка результата на экране
End.