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

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.