Определите последнюю цифру степени 7n, для (n< 100

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
const
  r:array[0..3] of integer=(1,7,9,3);
begin
  Writeln('Последняя цифра ',r[ReadInteger('n=') mod 4])
end.

Тестовое решение:
n= 7
Последняя цифра 3

Program RLN; 
var x:byte; 
begin 
writeln('Введите число, чтобы узнать, какому месяцу оно соответствует:'); 
Readln(x); 
Case x of 
0: writeln('Такого месяца не существует'); 
1: writeln('Январь.'); 
2: writeln('Февраль.'); 
3: writeln('Март.'); 
4: writeln('Апрель.'); 
5: writeln('Май.'); 
6: writeln('Июнь.'); 
7: writeln('Июль.'); 
8: writeln('Август.'); 
9: writeln('Сентябрь.'); 
10: writeln('Октябрь.'); 
11: writeln('Ноябрь.'); 
12: writeln('Декабрь.'); 
13..1000: writeln('Такого месяца не существует.'); 
end; 
end. 

1.Информация - это любые сведения об окружающем мире, которые мы получаем с различных органов.
2. Мы познаем его с той информации, которую получили за счет взаимодействия с природой и т.д.
3. Чувственное познание – это отражение действительности в чувственных образах. Также есть рациональное - но это познание мы получаем из суждений, рассказов и т.д.
4. Познание сущности вещей, явлений, процессов
5. Понятие - форма мышления, отражающая общие свойства мышлений.Формы рационального познания включают в себя понятие, суждение, умозаключение