Написать программу выдающую след инф: средний балл полученный студентом и всей…

Фух задолбаюсь конечно писать) Program name; uses crt; var x,y,k: integer; s: real; beginclrscr; y: =0k: =0while x>0 do; beginwriteln (`введите одну оценку студента. Если оценки кончились поставьте 0`); readln (x) y: =y+x; k: =k+1; end; s: =y/k; writeln (s); readkey; end. Я уверен что это правильно но эта программа ток для одного студента. Если нужно для всей группы искать тоже то легче для нее отдельно точно такую же прогу составить но вместо пояснения в первом врайтлн написать нужно не про оценку а про введите средний балл каждого студента. Если студенты кончились ставьте ноль, а если нужно все уместить в одном то добавляешь еще 3 переменные интеджер и 1 в Реал и после врайтлн (s) пишешь заново с другими переменными. Ну заново это со слова Бегин ток его не пиши)