Program zadanie; var a,b,c: real; n: integer; begin writeln('введите количество учеников'); readln(n); writeln('введите количество пятёрок в классе'); readln(a); a: =n/100*a; writeln('введите количество четвёрок в классе'); readln(b); b: =n/100*b; writeln('введите количество троек в классе'); readln(c); c: =n/100*c; writeln('процент пятёрок в классе: ',a); writeln('процент четвёрок в классе: ',b); writeln('процент троек в классе: ',c); end.