В группе 15 учащихся. Известна оценка каждого. Сколько было пятёрок
P.S написать программу в Паскале через while

Можно ли написать эту программу и использованием while и команды random?

Запросто...

Представьте пожалуйста такой вариант

Var A,i:Byte;S:integer;Begini:=1;S:=0;While i<=15 doBeginA:=random(5)+1;if A=5 then S:=S+1;i:=i+1End;WriteLn('Кол-во пятёрок = ',S)End.