Program a;
var a: integer;
begin
writeln ('Vvedite chislo: ');
readln(a);
if (a < 0) then write('0')
else if ((a >= 0) and (a <= 18)) then write('1')
else write ('2');
end.
Program n1;
var x,y,z: real;
procedure kvur(a,b,c: real);
var D: real;
begin
D:=b*b-4*a*c;
writeln('x1=',(-b+sqrt(D))/2*a);
writeln('x2=',(-b-sqrt(D))/2*a);
end;
begin
write('a=');
readln(x);
write('b=');
readln(y);
write('c=');
readln(z);
kvur(x,y,z);
end.