Дано предложение. Вывести все буквы «д» и «ж». язык программирования с++

const alphabet="яабвгдеёжзийклмнопрстуфхцчшщъыьэюя"; var filename: stringprocedure readfile(filename: string); var f: text; s: string; i,k: integer; begin      assign(f,filename);       reset(f);       while not eof (f) do begin { пока не конец файла }            readln (f, s);             for i: = 1 to length(s) do begin              k: =pos(s[i], alphabet);                   if k=1 then k=length(alphabet); {это приколы изза я}                   if k> 1 then s[i]: =alphabet[k-1];         end;             writeln(s);       end;       close(f); end; begin      read(filename);       readfile;       readln; end.

var i: integer; begin  for i: = 2 to 14 do      writeln(i*i); end.

program num1; uses crt; var i : integer; beginclrscr; for i: =20 to 40 doif (i mod 2) = 0 then write(i,' '); end.

до перелива 8     0     0

1)                 3     5     0

2)                 3     2       3

3)                 6     2       0

4)                 6     0       2

5)                 1     5     2

6)                 1     4       3 

7)                   4     4       0