Даны 2 фигуры. квадрат со стороной a и прямоугольник со сторонами b c.выяснить, какая из фигур имеет больший периметр. ответ дайте в текстовой форме. программа паскаль. написать программу.

Квадрат, фотку из программы паскаль прикрипила к ответу

Вот. Все вариантв учел. program pr; var a,b,c,p1,p2:integer; begin write('Введите сторону квадрата: '); readln(a); write('Введите 1 сторону прямоуг.: '); readln(b); write('Введите 2 сторону прямоуг.: '); readln(c); p1:=4*a; p2:=b+b+c+c; if p1>p2 then writeln('Плошадь квадрата больше') else if p1