с информатикой. Тема урока:Массивы в языке программирования Паскаль. Задание: Заполнить массив из 10 элементов по правилу Фибоначчи.

From random import shuffle
 
points = 0
points_per_turn = 100
lives = 3
rooms = [("В комнате дракон :(", -1), ("В комнате живая вода :)", 1), ("Комната пуста :|", 0)]
n = len(rooms)
 
while lives > 0:
  print("Жизней: ", lives, ", очков: ", points, sep = "")
  shuffle(rooms)
  print("Выбирайте любую из дверей, введите число от 1 до", n, end=" ")
  choice = int(input()) - 1
  points += points_per_turn
  print(rooms[choice][0])
  lives += rooms[choice][1]
 
print("Коварный дракон лишил вас последней жизни, но тем не менее у вас осталось", points, "очков.")

№1. Вычисление гипотенузы прямоугольного треугольника по двум катетам:

program znanija
var 
  a,b: real;
  c: real; 
begin 
  write ('Введите длины катетов.'); 
  readln (a,b); 
  c:=sqrt(a*a+b*b); 
  writeln ('Гипотенуза треугольника равна:', c); 
end. 

№2. Вычисление площади треугольника по длинам сторон:

program znanija
var
  a, b, c, p, s : real;
begin
  write ('Введите длины сторон.');
  read (a, b, c);
  p:=(a + b + c)/2;
  s:=sqrt(p*(p - a)*(p - b)*(p - c));
  writeln ('Площадь треугольника равна:', s);
end.