Программа

{ ЛИКИ 
  Вычисление функции 2-х переменных }
Program Denis_3;
Var X,Y,Z:real;                           { Описание переменных }
BEGIN
  WriteLn;                                { Пропуск строки }
  Y:=1;                                   { Начальное определение Y }
  while Y<=2 do                           { Цикл перебора значений Y }
    Begin
      WriteLn;                            { Пропуск строки }
      X:=0.5;                             { Начальное определение X }
      while X<=1.1 do                     { Цикл перебора значений X }
        begin
          Z:=3.7*X*Sin(X)/(Sqr(X)+Sqr(Y));{ Вычисление Z }
          Write(Z:9,' ');                 { Вывод значения функции }
          X:=X+0.1                        { Вычисление следующего значения X }
        end;
      Y:=Y+0.2                            { Вычисление следующего значения Y }
    End;
  WriteLn                                 { Пропуск строки }
END.