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

program r234;
type mas=array [1..15] of CHAR;
fir=file of CHAR;
var
a,b:mas; f1:fir; f2:fir; i,n:integer;
begin
assign (f1,'iva.dan');
rewrite (f1);
ASSIGN (F2,'IVA.DAN');
REWRITE (F2);
writeln ('ўўҐ¤ЁвҐ ¬ ббЁў a');
for i:=1 to 15 do
read (a[i]);
writeln ('ўўҐ¤ЁвҐ n');
readln (n);
writeln ('ўўҐ¤ЁвҐ ¬ўббЁў b');
for i:=1 to n do
read (b[i]);
for i:=1 to 15 do
a[i]:=b[i];
b[i]:=a[i];
write (f1,a[i]);
write (f2,b[i]);
close (f1);
close (f2);
writeln ('Ї®«г祭­л© д ©« f1,f2');
reset (f1);
reset (f2);
while not eof (f1) do
while not eof (f2) do
for i:=1 to 15 do
READ (f1,A[I]);
write (F2,B[I]);
readln;
readln
end.