<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.
<span>Одну и ту же информацию можно кодировать разными способами. Например, русский текст мы привыкли записывать с помощью русского алфавита. Этот же текст можно записать латинскими буквами или используя азбуку Морзе.</span>
While (условие) do
begin
(пишем что выполнить)
end;
Все буквы меняем на предыдущие в алфавите ФОТОАЛЬБОМ