program open_s;
var
y,a,b,c:real;
begin
writeln('Введи значение a');
readln(a);
writeln('Введи значение b');
readln(b);
writeln('Введи значение c');
readln(c);
y:=sqrt(a-c)-((sqr(b)+2)/c);
write('ответ: ',y);
end.
program open_s;
var
y,a,b,c:real;
begin
writeln('Введи значение a');
readln(a);
writeln('Введи значение b');
readln(b);
writeln('Введи значение c');
readln(c);
y:=sqrt(a-c)-((sqr(b)+2)/c);
write('ответ: ',y);
end.