Кажждая буква несет 4 бита информации
111, 34, 76, A2 -------------------------
1. Сначала надо перевести всё в секунды: N*60+M = время в секундах
2. Теперь найдём количество молний. Для этого всё время надо разделить на время создания одной молнии: (N*60+M)/X = искомое количество молний.
Вместо "a := a * a" можно использовать "a := sqr(a)"
--------------------------------------------------------------------
var
a : integer;
begin
write('Введите число: '); //Вывод сообщения
readln(a); //Ввод числа
a := a * a; //Возведение в квадрат
writeln('Введенное число в квадрате = ', a); //Вывод результата
readln;
end.