Вот. Все вариантв учел.
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