ПОМОГИТЕ ПОЖАЛУЙСТА:(( РЕШАТЬ НА ПАСКАЛЕ. ЗАРАНЕЕ СПАСИБО.. 1) В школьном коридоре длиной 56 м нужно покрасить пол. Покрасивее часть коридора длиной 22 м,израсходовали А кг краски. Сколько еще нужно краски,чтобы докрасить коридор? 2) В классе N учеников. По результатам контрольной работы были получены оценки: А - пятерок;В - четверок; С - троек. Найдите процент троек,четверок и пятерок.

1.
program z2;
var a,g:real;
begin
  readln(a);
  g:=(a/22)*(56-22);
  writeln(g:4:2);
end. 

2.
program z3;
var n,a,b,c:integer;
    sa,sb,sc:real;
begin 
 writeln(Ведите количество учеников:);   
 readln(n); 
 writeln(Введите сколько:5,4,3);
 readln(a,b,c);
 sa:=(a*100)/n;
 sb:=(b*100)/n;
 sc:=(c*100)/n; writeln(пятёрок:,sa:4:2,%);
 writeln(четвёрок:,sb:4:2,%);
 writeln(троек:,sc:4:2,%);
end.