Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / labrab05

program labrab05;
uses crt;
var x,y,f: real;
begin
 clrscr;
 writeln(' Введите x ');
 readln(x);
 writeln(' Введите y ');
 readln(y);
 f:=(sqr(x)+sqr(y))/(2-sqrt(x+y));
 writeln(' f =  ', f:7:2);
 readln;
end.