Помагите решить задачу по информатике Решить нужно в паскалях.
Выяснить что меньше: площадь параллелограмма с известным основанием а и вы отой h или периметр квадрата со стороной b. Если утроенный периметр квадрата меньше площади параллелограмма, то периметр квадрата увеличить на 6, иначе площадь увеличить в 10 раз. Вывести
результат.

Предыдущий
вопрос Следующий
вопрос

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.