Дана последовательность нену­ле­вых вещественных чисел, за ко­торой сле­дует 0 (0 – признак конца последо­вательности). Последовательность является оценками студентов группы по одной дисциплине. Определить сколько «2» и « 5».

Var a:real;k2,k5:integer;
begin
k2:=0; k5:=0;
read(a);
while a0 do begin
if a=2 then k2:=k2+1
else if a=5 then k5:=k5+1;
read(a) end;
write(k2, ,k5)
end.