Вам нужно создать красиво оформленную таблицу, однако времени на это мало. Опишите ваши действия...() • Алмат создал таблицу и хочет написать в ячейке слово Жаворонок не слева-направо, а сверху-вниз. Какие действия ему необходимо выполнить для реализации задуманного?

Var
  d1,d2,n:integer;
  k,s:longint;
begin
  Write('Введите натуральное двухзначное число: '); Read(n);
  d1:=n div 10; d2:=n mod 10;
  k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));
  Write(n,': ');
  if k=s then Writeln('Квадрат числа (',k,
      ') равен учетверенной сумме кубов его цифр')
  else Writeln('Квадрат числа (',k,
      ') не равен учетверенной сумме кубов его цифр (',s,')')
end.

Тестовое решение:
Введите натуральное двухзначное число: 48
48: Квадрат числа (2304) равен учетверенной сумме кубов его цифр

Введите натуральное двухзначное число: 47
47: Квадрат числа (2209) не равен учетверенной сумме кубов его цифр (1628)

Замечание: На самом деле лишь одно число 48 среди всех двухзначных чисел удовлетворяет условию равенства, так что достаточно просто сравнивать введенное число с 48, чтобы решить задачу )))

Всего номеров четыре. Номера Пети и Коли в сумме меньше четырех, следовательно ни Петя, ни Коля не могут быть ни четвертым, ни третьим, поэтому у Пети и  Коли номера 1 и 2 (только 1+2=3, что меньше четырех). Значит, Гриша не первый и не второй, т.е. его номер больше, чем у Пети и ответ - "да".

Условие, что последний (четвертый) стоит после Коли - лишнее, оно ничего не дает. Гриша стоит перед Васей позволяет нам лишь сделать вывод, что Гриша третий, а Вася четвертый, но и этого по условию задачи нам не нужно.