var a,b,y: real;
begin
write ('Введите a: ');
readln(a);
write ('Введите b: ');
readln (b);
y:= sqr(a-2*b) + 7;
writeln('ответ ' + y);
end.
