Ответ:
program kvadrat;
var
a : integer;
Begin
write('ввести длину стороны квадрата = ');
readln(a);
if a > 6 then writeln('периметр P=', a*4) else writeln('площадь S=', a*a);
end.
Объяснение:
программа протестирована на PascalABC.NET
было бы здорово в задании указывать на каком языке программирования вам нужен ответ