PROGRAM TASK;
VAR K,I:LONGINT; S:STRING;
    B,A:ARRAY [0..9] OF INTEGER;
BEGIN
     ASSIGN(INPUT,'INPUT.TXT');
     RESET(INPUT);
     ASSIGN(OUTPUT,'OUTPUT.TXT');
     REWRITE(OUTPUT);
     READLN(S);
     FOR I:=1 TO LENGTH(S) DO
     INC(A[ORD(S[I])-ORD('0')]);
     FOR I:=0 TO 9 DO
     IF A[I]=0 THEN BEGIN INC(K); B[K]:=I END;
     IF K=0 THEN BEGIN WRITELN(0); HALT END;
     WRITELN(K);
     FOR I:=1 TO K-1 DO
     WRITE(B[I],' ');
     WRITELN(B[K])
 
END.

uses crt;
var p,k,i,j:integer;
    n,y:real;
    w:char;
begin
p:=10;
k:=6;
repeat
clrscr;
gotoXY(13,1);
writeln('Таблица вычисления стандартных арифметических функций');
{верхняя граница}
write(#201);
for i:=1 to p do write(#205);
write(#203);
for i:=1 to k do
 begin
  for j:=1 to p do write(#205);
  if i<k then write(#203)else write(#187);
 end;
writeln;
i:=1;
j:=0;
repeat
gotoXY(i,whereY);
write(#186);
j:=j+1;
i:=i+p+1
until j>k+1;
writeln;
{разделитель}
write(#204);
for i:=1 to p do write(#205);
write(#206);
for i:=1 to k do
 begin
  for j:=1 to p do write(#205);
  if i<k then write(#206)else write(#185);
 end;
writeln;
gotoXY(3,3);write('Число');
gotoXY(16,3);write('Exp');
gotoXY(28,3);write('Ln');
gotoXY(39,3);write('Cos');
gotoXY(50,3);write('Sin');
gotoXY(61,3);write('Sqr');
gotoXY(71,3);write('Sqrt');
i:=1;
j:=0;
repeat
gotoXY(i,5);
write(#186);
j:=j+1;
i:=i+p+1
until j>k+1;
writeln;
{нижняя граница}
gotoXY(1,6);
write(#200);
for i:=1 to p do write(#205);
write(#202);
for i:=1 to k do
 begin
  for j:=1 to p do write(#205);
  if i<k then write(#202)else write(#188);
 end;
gotoXY(12,15);
repeat
write('Введите исходное значение (в диапазоне от -20 до 10) n=');
readln(n);
until(n>=-20)and(n<=10);
gotoXY(3,5);write(n:0:2);
gotoXY(16,5);write(Exp(n):0:2);
gotoXY(28,5);if n>0 then write(ln(n):0:2) else write('Nan');
gotoXY(39,5);write(Cos(n):0:2);
gotoXY(50,5);write(Sin(n):0:2);
gotoXY(61,5);write(Sqr(n):0:2);
gotoXY(71,5);if n>=0 then write(Sqrt(n):0:2)else write('Nan');
repeat
gotoXY(20,17);
write('Повторить вычисление (Y/N)? ');
readln(w);
until upcase(w) in ['Y','N'];
until upcase(w)='N';
end.