var x, y, f: integer;
begin
readln(x);
readln(y);
f:=(6*(х+5))-6*у+5;
write(f);
end.
Вроде так, если я правильно поняла.
var
x, y, f: real;
read(x, y);
f := sqr(3 * (x + 5)) - 6 * y + 5;
writeln(f)
