Паскаль АВС: Процедуры и функции. Создать файл - сводная экзаменационнная ведомость. Каждая строка ведомости состоит из фамилии студента и 3-х оценок. В новый файл переписать фамилии студентов, учащихся на 4 и 5.

чувак я не понял задание сделал ответ ради баллов

Объяснение:

не отмечай как нарушение

нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу

program prim;

var i,sum,n,x   : integer;

begin

    write('n = ');

    readln(n);

    x: =2;

    sum: =2;

    i: =1;

    while sum< =n do

    begin

    x: =x+2;

    i: =i+1;

    sum: =sum+x;

end;

    writeln(i,'слагаемых');

end. 

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.