Составить программку, печатающую значение true, если обозначенное выражение является истинным, и

В программку поступают два числа. Так как тип их в задачке прямо не указан, мы будем воспользоваться вещественным типом, который позволяет вводить нецелые числа.
Следующим шагом является чтение чисел:
readln (a);
readln (b);
readln (c);
Когда все числа прочитаны и записаны в подходящие переменные, нам нужно найти среднее.
Поначалу мы перемножим числа а и b:
d := a * b;
d := power(d, 1/2);
Ступень мы используем поэтому, что нам необходимо извлечь корень.
if (c = d) then
writeln (True)
else
writeln (False);
end.