Просто считаешь от 15 до 30:
16
Есть =)
program z;
var k, x, i: integer;
begin
readln(k);
x:=1;
for i:=1 to k do
begin
if ((x + 1) mod 3 = 0) then x:=x*3
else x:=x+1;
end;
writeln(x);
end.
Четыре стула по углам и один в центре комнаты.
или как на картинке (если нужно, чтобы каждый стул был у стены)
ОдинДваТриЧетыреПять...и т.д.
Var
N: integer;
Begin
Write('Введите номер урока: ');ReadLn(N);
Case N of
'1':WriteLn('Математика');
'2':WriteLn('Физика');
'3':WriteLn('Химия');
'4':WriteLn('Геометрия');
'5':WriteLn('География');
'6':WriteLn('Краеведенье');
End;
End.