помоги написать программа на паскале точнее модуль этой программы вот по этой задачи: Правильный пятиугольникюопределить пятиугольник с наименьшим периметром

1

Ответы и объяснения

2011-05-02T19:08:04+04:00

Program qwdasd23;

var a, b, p1, p2 : integer;

begin 

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

readln (a);

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

readln (b);

p1:=5*a;

p2:=5*b;

if p1=p2 then writeln ('Пятиугольники равны')

             else 

                if p1>p2 then writeln ('Периметр первого пятиугольника больше периметра второго пятиугольника')

                             else writeln (' Периметр второго пятиугольника больше периметра первого пятиугольника');

readln;

End.