Program GOTO;
Var
a,b,c,d,e,f:string;
Begin
     f:='Реализация мысли desTiny.....';
     e:='п';
     d:='у';
     c:='о';
     a:='в ';
     b:='ж';
     Writeln();
     Write('GOTO ');
     Writeln(a,b,c,e,d);
     Writeln(f);
     Readln;

end.