В классе N - учеников по

контрольной получили A - пятерок, B - четвёрок, C - троек. Найти процент A, B, C

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.