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

program magazine;
uses crt;
const nos=3;
      nom=4;
type student=record
     name:string[20];
     group:string[5];
     mark:array[1..nom] of shortint;
     end;
var
   b:array [1..nom] of boolean;
   i,o:integer;
   mag:array[1..nos] of student;
   f:text;
begin
clrscr;

for i:=1 to nos do begin
write ('‚ўҐ¤ЁвҐ Ё¬п: ');
readln (mag[i].name);
write ('‚ўҐ¤ЁвҐ ЈагЇЇг:');
readln (mag[i].group);
for o:=1 to nom do begin
                 write ('‚ўҐ¤ЁвҐ ',o,'-го ®жҐ­Єг: ');
                 readln (mag[i].mark[o]);
                 end;
end;
writeln ('‚ў®¤ Ў §л ¤ ­­ле § ўҐа襭');
readln;

clrscr;
for i:=1 to nos do begin
                   writeln (i);
                   writeln ('€¬п   : ',mag[i].name);
                   writeln ('ѓагЇЇ : ',mag[i].group);
                   for o:=1 to nom do begin
                                      writeln (o,'-п ®жҐ­Є : ',mag[i].mark[o]);
                                      end;
                   end;
writeln;
writeln ('‚ᥠбв㤥­вл');
readln;
assign (f,'magazine.txt');
rewrite (f);
writeln (f,'---------- †га­ « Ћ’‹€—Ќ€ЉЋ‚ Ё •ЋђЋ€‘’Ћ‚ ----------');
for i:=1 to nos do begin
                   b[i]:=false;
                   for o:=1 to nom do begin
                                      if (mag[i].mark[o])<4 then b[i]:=true;
                                      end;
                   if (b[i]=false) then begin
                                         writeln (f,'‘в㤥­в: ',mag[i].name);
                                         writeln (f,'ѓагЇЇ  : ',mag[i].group);
                                         writeln (f,'');
                                         end;
                   end;
close (f);
writeln ('‡ ¤ ­ЁҐ ўлЇ®«­Ґ­®');
readln;
end.