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

program words;
uses crt;
var fi,ft,fn:text;
    c:char;
    i:integer;
    b:boolean;
    fin,ftn,fnn:string;
begin
clrscr;
write ('‚ўҐ¤ЁвҐ Ё¬п Ёб室­®Ј® д ©« : ');
readln (fin);
assign (fi,fin);
reset (fi);

write ('‚ўҐ¤ЁвҐ Ё¬п д ©«  ¤«п ⥪бв : ');
readln (ftn);
assign (ft,ftn);
rewrite (ft);

write ('                  ¤«п зЁбҐ«: ');
readln (fnn);
assign (fn,fnn);
rewrite (fn);
repeat
read (fi,c);
case c of '0','1','2','3','4','5','6','7','8','9': begin
                                                   write (fn,c);
                                                   b:=true;
                                                   end;
          ' ': begin
               case b of
                      true : write(fn,c);
                      false : write (ft,c);
               end;
               end;
else begin
     write(ft,c);
     b:=false;
     end;
end;
until eof (fi);
close (fi);
close (ft);
close (fn);
writeln ('‡ ¤ ­ЁҐ ўлЇ®«­Ґ­®');
readln;
end.