program Task1;

var
a, h, b, S_par, P_kv, new_P_kv: real;

begin
write('Введите основание параллелограмма a: ');
readln(a);

write('Введите высоту параллелограмма h: ');
readln(h);

write('Введите сторону квадрата b: ');
readln(b);

S_par := a h;
P_kv := 4 b;

if 3 P_kv < S_par then
begin
new_P_kv := P_kv + 6;
writeln('Новый периметр квадрата: ', new_P_kv);
end
else
begin
S_par := S_par 10;
writeln('Новая площадь параллелограмма: ', S_par);
end;
end.