Предстоит использовать задание массива через функцию Random.

1 Дан массив целых чисел. Найти сумму элементов массива, больших
числа А.
2 В массиве хранится информация о , полученных спортсменом-
десятиборцем в каждом из десяти видов спорта (от 500 до 1000). Для
выхода в следующий этап соревнований общая сумма должна
превысить некоторое известное значение. Определить, вышел ли
данный спортсмен в следующий этап соревнований

Реферат – сбор и представление исчерпывающей информации по заданной теме из различных источников, в том числе представление различных точек зрения по этому вопросу. При работе над проектом имеется похожий, реферативный этап, который является лишь частью проекта. Исследовательская работа – работа, связанная с решением творческой, исследовательской задачи с заранее неизвестным результатом. Исследование – это лишь этап проектной работы. Проект – работа, направленная на решение конкретной проблемы, на достижение оптимальным заранее запланированного результата. Проект может включать в себя элементы докладов, рефератов, исследований и других видов самостоятельной работы учащихся, но только как достижения результатов проекта.

Var
  s:string;
  c1,cn:char;
  n:integer;
begin
  Write('Введите натуральное число: '); Read(n);
  Str(n,s);
  c1:=s[1];
  cn:=s[Length(s)];
  if c1>cn then Writeln('Первая цифра больше последней')
  else
    if c1<cn then Writeln('Первая цифра меньше последней')
    else Writeln('Первая и последняя цифры одинаковы')
end.

Тестовые решения
Введите натуральное число: 362336
Первая цифра меньше последней

Введите натуральное число: 7341423
Первая цифра больше последней

Введите натуральное число: 4624
Первая и последняя цифры одинаковы