Среди чисел 1, 4, 9, первое число, большее n

Var n,m:integer;
begin
write('n = ');
readln(n);
m:=1;
while m*m<=n do m:=m+1;
writeln('m = ',m*m);
end.

Пример:
n = 70
m = 81

Смотри таблицу во вложении.
В светло-зелёные клетки вводим расстояния, которые проехали коротышки на каждом виде транспорта.
В розовые - вводим цену за 1 км на каждом виде транспорта.

Таблица автоматически считает:
- Сколько каждый коротышка заплатил за каждую поездку (бежевые ячейки)
- Какое расстояние проехали все коротышки на одном виде транспорта (жёлтые)
- Сколько денег потратили все коротышки на одном виде транспорта (синие)
- Какое расстояние проехал каждый коротышка на всех видах транспорта (тёмно-зелёные)
- Сколько денег потратил каждый коротышка в сумме на всех видах транспорта (коричневые)
- Какое расстояние проехали все коротышки на всех видах транспорта (фиолетовая)
- Сколько денег всего потратили все коротышки в сумме на всех видах транспорта (красная)

Смотри таблицу во вложении.
В светло-зелёные клетки вводим расстояния, которые проехали коротышки на каждом виде транспорта.
В розовые - вводим цену за 1 км на каждом виде транспорта.

Таблица автоматически считает:
- Сколько каждый коротышка заплатил за каждую поездку (бежевые ячейки)
- Какое расстояние проехали все коротышки на одном виде транспорта (жёлтые)
- Сколько денег потратили все коротышки на одном виде транспорта (синие)
- Какое расстояние проехал каждый коротышка на всех видах транспорта (тёмно-зелёные)
- Сколько денег потратил каждый коротышка в сумме на всех видах транспорта (коричневые)
- Какое расстояние проехали все коротышки на всех видах транспорта (фиолетовая)
- Сколько денег всего потратили все коротышки в сумме на всех видах транспорта (красная)