Ввести число оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять! if x> 8 then y: =x/4 else y: =x*5

var x,y: real;

begin

  readln(x);

  if x> 8 then y: =x/4 else y: =x*5;

  writeln(y);

end.

первым человеком, если доверять , кому все таки удалось расшифровать   египетские иероглифы, был французский ученый египтолог жан-франсуа шампольон (1790-1832гг). он постарался составить полный список иероглифов (доступных и понятых им на те времена) и их греческих эквивалентов, создав таким образом основу для перевода всех остальных египетских иероглифических текстов.

min і max нужно присвоить а[1].