Написать программу паскаль: y=x^2+b^2 заранее спасибо))

Question

Написать программу паскаль: y=x^2+b^2
заранее спасибо))

Answer 1

var x,b,y:integer;
begin
write('x = ');
readln(x);
write('b = ');
readln(b);
y:=x*x+b*b;
writeln('y = ',y);
end.

Пример:
x = 5
b = 8
y = 89

Answer 2

Var a,b,c,d,x:real;begin     writeln('введите A,B,C');     readln( a,b,c );     d:=sqr(b)-4*a*c;     if d<0 then begin</span>        writeln('действительных корней нет');     end else if d=0 then begin        x:=(-b)/2*a;        writeln('корень уравнения: ',x);     end else begin        x:=(-b+sqrt(d))/2*a;        writeln('1-й корень уравнения: ',x);        x:=(-b-sqrt(d))/2*a;        writeln('2-й корень уравнения: ',x);     endend.