Соответствие термины со значением​

program raf105;

var

 s,s2: string;

 i,j,n,price,points: integer;

begin

write('Количество задач в карусели: ');

readln(n);

write('ответы команды: ');

readln(s);

for i:=1 to length(s) do

 if s[i]<>' '

   then s2:= s2 + s[i];

price:= 3;

for i:=1 to length(s2) do

begin

 if s2[i]='1'

   then begin

     points:= points + price;

     price:= price + 1;

   end

   else for j:=1 to 3 do

     if price > 3

       then price:= price-1;

end;

writeln('Итоговый : ',points);

end.

program z1;

var k:integer;

begin

writeln('введите класс ');readln(k);

if k=1 then ('Привет,первоклассник');

 if k=2 then ('Привет,второклассник'); 

 if k=3 then ('Привет,третеклассник'); 

 if k=4 then ('Привет,четвероклассник'); 

 if k=5 then ('Привет,пятиклассник'); 

 if k=6 then ('Привет,шестиклассник'); 

 if k=7 then ('Привет,семиклассник'); 

 if k=8 then ('Привет,восьмиклассник'); 

 if k=9 then ('Привет,девятиклассник');

 if k=10 then ('Привет,десятиклассник'); 

 if k=11 then ('Привет,одинадцатиклассник'); 

end.