Напишите в Паскале программу, которая посчитает количество дней, в которых была зарегистрирована температура больше, чем средненедельная. Даны данные:
type Vremya=0..23;
Gradusi=-40..40;
Temperatura=array [Vremya] of Gradusi;
var t:Temperatura;

ответ: Кот Леопольд пошёл на рыбалку и наловил рыбы. Каждую рыбу он старательно взвесил. Первая рыба (самая маленькая), которую он взвешивал , весила ровно L грамм. Каждая следующая рыбина была на K грамм тяжелее предыдущей. Сколько весит вся рыба, которую наловил Леопольд, если известно что поймал он N(>0) рыб?

Технические условия. Программа считывает с клавиатуры число N-количество рыб, потом, через пробел, L-массу первой рыбы в граммах и через пробел-K-на сколько каждая следующая рыбина тяжелее предыдущей. Программа выводит на Экран одно целое число-массу всей пойманой рыбы в граммах.

Пример:

Ввод>10 250 100

Вывод>7000

Ввод>12 100 150

Вывод>11100

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:set of integer:=[];
  Writeln('Вводите натуральные числа от 1 до 255, иное число завершит ввод');
  repeat
    var n:=ReadInteger;
    if not (n in [1..255]) then break
    else s+=[n]
  until false;
  Writeln('-'*10);
  foreach var k in s do
    if k.ToString.ToCharArray.Distinct.Count=1 then Print(k)
end.

Пример
Вводите натуральные числа от 1 до 255, иное число завершит ввод
24
55
68
156
222
77
8
140
500

77 8 55 222