1. Составить программу для вычисления выражения, значение а вводится с клавиатуры: y=(a-2b)²+7

var a,b,y: real;

begin  

write ('Введите a: ');

readln(a);

write ('Введите b: ');

readln (b);

y:= sqr(a-2*b) + 7;

writeln('Ответ ' + y);

end.