program z1;
var x:real;
begin
readln (x);
if x > 3 then write (x*x+5:0:2)
else write (x-8:0:2);
end.
Объяснение:
:0:2 - форматированный вывод
Число после первого двоеточия - общее количество позиций под число, включая знаки после запятой (можно ставить 0 и тогда программа определит самостоятельно, как обычно и делает)
Число после второго двоеточия - количество позиций после запятой (если знаков нет, то программа выведет нули)
Форматированный вывод округляет число
