Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N9M

Program V41_N9;
uses crt,modul41;
var
 Station    :mas1;
 Rast       :mas2;
BEGIN
 Vvod(Station,Rast);
 clrscr;
 Vivod(Station,Rast,'Љ®¬б®¬®«мбЄ п    ','ЉгабЄ п          ');
 Vivod(Station,Rast,'’ Ј ­бЄ п        ','ЃҐ«®агбЄ п       ');
 Vivod(Station,Rast,'Џ аЄ Љг«мвгал    ','Љ®¬б®¬®«мбЄ п    ');
 while not keypressed do;
END.