Помоги написать программа на паскале точнее модуль этой программы…

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.