Даны 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