Var a,b,x,f:integer;
Begin
Repeat
Read(a,x);
B:=random(7)-3;
Writeln('y=', sqr(a)+b*x);
Writeln('Ещё одно вычисление? Да(1) нет(0)');
Read(f);
Until f=0;
End.
Объяснение:
Var a,b,x,f:integer;
Begin
Repeat
Read(a,x);
B:=random(7)-3;
Writeln('y=', sqr(a)+b*x);
Writeln('Ещё одно вычисление? Да(1) нет(0)');
Read(f);
Until f=0;
End.
Объяснение: