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.
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.
PascalABC 3.4.2
var
i, num, count: integer;
begin
count := 0;
for i := 1 to 15 do
begin
read(num);
if (num mod 2 = 0) and (num mod 9 = 0) then
count := count + 1;
end;
write(count);
end.