01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / MYNEWLAB

program lab1;
uses crt;
var fold,fnewb,fnewc:text;
    f1,f2,f3:string;
    nob,noc:integer;
    c:char;
    b:boolean;

procedure up;
begin
case c of
       '©': c:='‰';
       'ж': c:='–';
       'г': c:='“';
       'Є': c:='Љ';
       'Ґ': c:='…';
       '­': c:='Ќ';
       'Ј': c:='ѓ';
       'и': c:='';
       'й': c:='™';
       '§': c:='‡';
       'е': c:='•';
       'к': c:='љ';
       'д': c:='”';
       'л': c:='›';
       'ў': c:='‚';
       ' ': c:='Ђ';
       'Ї': c:='Џ';
       'а': c:='ђ';
       '®': c:='Ћ';
       '«': c:='‹';
       '¤': c:='„';
       '¦': c:='†';
       'н': c:='ќ';
       'п': c:='џ';
       'з': c:='—';
       'б': c:='‘';
       '¬': c:='Њ';
       'Ё': c:='€';
       'в': c:='’';
       'м': c:='њ';
       'Ў': c:='Ѓ';
       'о': c:='ћ';
end;
c:=upcase(c);
write (fnewb,c);
b:=false;
end;

procedure down;
begin
case c of
       '‰': c:='©';
       '–': c:='ж';
       '“': c:='г';
       'Љ': c:='Є';
       '…': c:='Ґ';
       'Ќ': c:='­';
       'ѓ': c:='Ј';
       '': c:='и';
       '™': c:='й';
       '‡': c:='§';
       '•': c:='е';
       'љ': c:='к';
       '”': c:='д';
       '›': c:='л';
       '‚': c:='ў';
       'Ђ': c:=' ';
       'Џ': c:='Ї';
       'ђ': c:='а';
       'Ћ': c:='®';
       '‹': c:='«';
       '„': c:='¤';
       '†': c:='¦';
       'ќ': c:='н';
       'џ': c:='п';
       '—': c:='з';
       '‘': c:='б';
       'Њ': c:='¬';
       '€': c:='Ё';
       '’': c:='в';
       'њ': c:='м';
       'Ѓ': c:='Ў';
       'ћ': c:='о';

       'Q': c:='q';
       'W': c:='w';
       'E': c:='e';
       'R': c:='r';
       'T': c:='t';
       'Y': c:='y';
       'U': c:='u';
       'I': c:='i';
       'O': c:='o';
       'P': c:='p';
       'A': c:='a';
       'S': c:='s';
       'D': c:='d';
       'F': c:='f';
       'G': c:='g';
       'H': c:='h';
       'J': c:='j';
       'K': c:='k';
       'L': c:='l';
       'Z': c:='z';
       'X': c:='x';
       'C': c:='c';
       'V': c:='v';
       'B': c:='b';
       'N': c:='n';
       'M': c:='m';
end;
write (fnewb,c);
end;
begin
b:=true;
noc:=0;
nob:=0;
clrscr;
write ('‚ўҐ¤ЁвҐ Ё¬п д ©«  ¤«п Є®а४樨 агббЄ®Ј® п§лЄ : ');
readln (f1);
assign (fold,f1);
write ('‚ўҐ¤ЁвҐ Ё¬п ўл室­®Ј® д ©«  ЎгЄў: ');
readln (f2);
assign (fnewb,f2);
write ('                       д ©« жЁда: ');
readln (f3);
assign (fnewc,f3);
reset (fold);
rewrite (fnewb);
rewrite (fnewc);
repeat
read (fold,c);
case c of
       ' ' : write (fnewb,c);
       '.' : begin
             b:=true;
             write (fnewb,c);
             end;
       '1','2','3','4','5','6','7','8','9','0' : begin
                                                 write (fnewc,c);
                                                 noc:=noc+1;
                                                 end;
else begin
     if not (ord(c)=13) then begin
                          if b=true then up else down;
                          nob:=nob+1;
                          end;
     end;
end;
until eof (fold);
writeln;
writeln ('Љ®«ЁзҐбвў® ЎгЄў = ',nob);
writeln ('Љ®«ЁзҐбвў® жЁда = ',noc);
textcolor(blue);
textbackground(white);
window (1,10,80,15);
clrscr;
reset (fnewb);
repeat
read (fnewb,c);
write (c);
until c='.';
readln;
close (fnewc);
close (fnewb);
end.