Як ти думаєш, моделлю чого є мова?

Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.

uses crt;

var i,j,k,n,s,s1:integer;
a:array[1..5,1..10] of integer;

begin
randomize;
for i:=1 to 5 do
for j:=1 to 10 do
a[i,j]:=random(10)+1;
for i:=1 to 5 do
begin
writeln(' ');
for j:=1 to 10 do
write(a[i,j], ' ');
end;

 

2-3
uses crt;

var i,j,k,n,s,s1:integer;

b:array[1..10] of integer;
begin
randomize;

//prog 2
for i:=1 to 10 do
begin
b[i]:=random(10)+1;
if i mod 2 =0 then s1:=s1+b[i];
write(b[i],' ');
end;
writeln(' vvedite k and n ');
readln(k,n);
for i:=k to n do s:=s+b[i];
writeln('suma = ',s);
writeln('suma chetnyh ',s1);
readln;
end.

4..

uses crt;

var i:integer;

a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(10)-7;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=10 downto 1 do write(a[i],' ');
readln;
end.