Program clas;
Var n,a,b,c,troik:Integer;
    proz:Real;
Begin
 Write('Введите кол-во учащихся в классе: ');
 readLn(n);
 Write('Введите кол-во пятерок: ');
 ReadLn(a);
 Write('Введите кол-во четверок: ');
 ReadLn(b);
 Write('Введите кол-во двоек: ');
 ReadLn(c);
 troik:=n-(a+b+c);{Нашли кол-во троек}
 proz:=(troik*100)/n;
 WriteLn('Процент троек в классе из ',n,' учеников состовляет ',proz,'%');
ReadLn;
End.