Всё правильно кроме 4,7,9
4)В
7)В
9)В
Две строки по три ячейки = 6
1) y = 12, x = 3.
2) k = 30.
3) s = 61.
begin
var S := ReadlnString('Вводи сплошной строкой:').ToCharArray;
SetLength(S, 50);
Println('Приняты символы:');
S.Println('');
Println('Найдено z:', S.Count(c -> c = 'z'))
end.