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