Excel программасында кірістірілген функциялардың категориялары

Актуальная информация-важна в настоящее время.Пример-вечером ожидается гроза(прогноз погоды) или движение по таким-то улицам будет перекрыто,в связи с проведением демонстрации,заранее пользуйтесь маршрутами об"езда.
Неактуальная информация может быть по-времени(устаревшая)-в 2010 году открыли новый участок трассы Москва-Дон или ненужной,неважной-курс Швейцарского франка стабилен или а Индии восстановили движение поездов(если Вы не воспользуетесь поездами в Индии в ближайшее время,то эта информация для Вас не актуальна).

{Кратность 5ти}
var i, i1: integer;
begin     
 readln(i1);     
 for i:=0 to i1 do         
 if (i mod 5 = 0) then           
  writeln(i, ': ', sqr(i))         
 else             
  writeln(i, ': не кратно пяти');
end.

{ Больше 15-ти }
var i, b, c: integer;
begin     
for i:=1 to 15 do     
begin         
readln(b);         
if (b > 15) then             
c := c + 1;     
end;     
writeln(c);
end.

const N=5; //Любое кол-во:)
var a: real;   
i, count: integer;
begin     
for i:=0 to N-1 do     
begin         
readln(a);         
if (a > 0) then             
count := count + 1;     
end;     
writeln(count);
end.