Var a,b,c:real;
<span>begin </span>
<span>readln(a); </span>
<span>readln(b); </span>
<span>readln(c); </span>
<span>if (b*b-4*a*c)>=0 then writeln('deistvitelnie korni est!') else writeln('deistvitelnih korney net'); </span>
<span>if (b*b-(4*a*c))>0 then begin writeln('2 kornya'); writeln('x1= ',(-b-sqrt(b*b-4*a*c))/(2*a)); writeln('x2= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end; </span>
<span>if (b*b-(4*a*c))=0 then begin writeln('1 koren'); writeln('x= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end; </span>
<span>end.</span>
Var
A,N:integer;
P:real;
Begin
Write('A = ');
ReadLn(A);
Write('N = ');
ReadLn(N);
P:=1;
For N:= 0 to N-1 do
P:=P*(A+N);
WriteLn('P = ',P)
End.
Uses crt;
var n,d,z,x,c,k,a,b:integer;
begin
write('N:'); readln(n);
write('D:'); readln(d);
a:=round(power(10,n-1));
b:=round(power(10,n)-1);
for x:=a to b do
begin
z:=x;
k:=0;
while z>0 do
begin
c:=z mod 10;
if c=d then inc(k);
z:=z div 10;
end;
if k=0 then writeln(x);
end;
end.