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

program ery;
const n=10;
k=256;
srt=['0'..'9','=','+','-','/','*'];
var
i,j:integer;
ch:char;
f,r,g:text;
st:string;
b:array ['a'..'z'] of char;
begin

assign(f,'d:\wer.txt');
assign(r,'d:\ozenk.txt');
assign(g,'d:\use.txt');
reset(f);
while not eof(f) do
begin
read(f,ch);
if ch in srt then
rewrite(r);
write(r,ch);
else rewrite(g);
write(g,ch);
end;
close(f);
readln
end.