mport time
import random
a1 = random. randint(1,10)
a2 = random. randint(1,10)
player1 = {'Имя' : "Игрок1", 'Здоровье' : 100, 'Атака' : a1}
player2 = {'Имя' : "Игрок2", 'Здоровье' : 100, 'Атака' : a2}
while player1['Здоровье'] > 0 and player2['Здоровье'] > 0:
player2['Здоровье'] -= player1['Атака']
print(player1['Имя'], ' атаковал ', player2['Имя'])
time. sleep(2)
player1['Здоровье'] -= player2['Атака']
print(player2['Имя'], ' атаковал ', player1['Имя'])
time. sleep(2)
print('Игрок1 :', player1['Здоровье'], 'Игрок2 :', player2['Здоровье'])

Потому что модели реального объекта не всегда содержат все основные свойства объекта-оригинала(они содержатся в модели не полностью...одна модель не может в себя уместить все характеристики)...Их создают когда:
а)Процесс очень медленный
б)Процесс очень быстрый
в)Объект-оригинал очень мал
г)Объект-оригинал очень велик...
...Например,можно создать много моделей Земли:
Карту:
Рельефа
Климата
Материков и др.
Глобус:
Маленький
Большой и др.

Но,сколько бы ты ни создавал(а) моделей,ни одна из них не передаст всех характеристик реального объекта...

Удачи)))

Uses crt;
const N=10;
var a:array [1..N] of integer;
    x,k:integer;
begin
     k:=0;
     for x:=1 to 10 do
     begin
          a[x]:=random(99)+1;
          writeln('a[',x,']:',a[x]);
          if a[x] mod 3=0 then inc(k);
     end;
     writeln('Количество элементов, кратных 3:',k);
end.     
---
Для турбо паскаль:
uses crt;
const N=10;
var a:array [1..N] of integer;
    x,k:integer;
begin
     clrscr;
     k:=0;
     for x:=1 to 10 do
     begin
          a[x]:=random(100)+1;
          writeln('a[',x,']:',a[x]);
          if a[x] mod 3=0 then inc(k);
     end;
     writeln(k);
     readln;
end.

Скрины, как должна работать программа, приложила.