Восстановите начало одного из самых известных монологов на языке, зашифрованное простой заменой букв на числа: 11, 17_3, 7_17, 10_0, 17,11_11,17_3,7_11,21,23,11_6,8_11, 21,7_20,5,7,8,11,6,17,0 с алгоритмом нахождения если можно

паскаль

uses crt; var

  a,b,c,s: real; begin  read(a,b);   c: =sqrt(sqr(a)+sqr(b));   writeln('c=',c);   s: =(a*b)/2;   writeln('s=',s); end.

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.