uses
Math;
var
F, X, Y: Double;
begin
Write ('Введите X, Y: ');
ReadLn (X, Y);
F := Sin (Power (Y, 2)) - Ln (X * Y);
WriteLn ('F = ', F :10 :5);
ReadLn;
end.
