var

x, y, U: real; // объявление переменных

begin

writeln('  \ x     1       2       3'); // шапка таблицы (значения икс)

writeln(' y \  ------------------------');

y := 0.5; // начальное значение игрек

while y <= 2 do // цикл по вертикали (по игрек, до значения 2)

begin

write(y:4:2, ' |'); // выводим игрек (в 4 символа и 2 знака после запятой)

x := 1; // начальное значение икс

while x <= 3 do // цикл по горизонтали (по икс, до значения 3)

begin

if power(x, 1 / 3) < 2 then // если меньше двух, то...

U := ln(x * x + sqrt(y))  // то эта формула,

else U := max(x * y, y * y); // а иначе- вот эта

write(U:8:5); // вывод функции U (8 символов, 5 знаков после запятой)

x := x + 1; // следующее значение икс

end; // конец цикла по горизонтали (по икс)

writeln; // переходим к новой строке

y := y + 0.75; // следующее значение игрек

end; // конец цикла по вертикали (по игрек)

end. // конец программы