Отладить программу: - PascalABC.NET - Ответ 15038491

program primer9;
uses crt;
label 1;
type
ved = record
fio: string[30];
b1, b2, b3, b4, b5: 2..5;
sb: real
end;
var
gruppa: array[1..25] of ved;
i, k: integer;
otv: char;
begin
1: clrscr;
writeln('введите количество студентов в группе');
readln(k);
for i := 1 to k do
begin
writeln('введите данные ', i:2, '-го студента:');
with gruppa[i] do
begin
writeln ('введите фамилию и имя студента');
readln (fio);
writeln ('введите 5 оценок по дисциплинам');
readln (b1);
readln (b2);
readln (b3);
readln (b4);
readln (b5);
sb:=(b1+b2+b3+b4+b5)/5
end;
end;
{вывод ведомости на экран}
clrscr;
writeln('----------------------------------------------------');
writeln('| фио | 1 | 2 | 3 | 4 | 5 | ср.балл |');
writeln('----------------------------------------------------');
for i := 1 to k do
begin
with gruppa[i] do
begin
write ('|', fio:20, '|');
write (b1:2, ' |');
write (b2:2, ' |');
write (b3:2, ' |');
write (b4:2, ' |');
write(b5:2, ' |');
write(sb:7:2, ' |');
writeln
end
end;
writeln('----------------------------------------------------');
writeln('будете вводить новые данные (y/n)?');
readln(otv);
if (otv = 'y') or (otv = 'y')
then goto 1
end.