Именованные масштабы: в 1 см – 400 км, в 1 см – 5 км, в 1 см – 25км выразите численными

Var n,m,head,eye: integer; -объявили переменные целого типа
begin - начала программу
writeln('сколько лет вашему дракону?'); - вывели фразу 'сколько лет вашему дракону?' на экран
readln(n); - считали введенную переменную n и перевели каретку на новую строку
head:=1; - присвоили значение
eye:=2; - присвоили значение
for m:=2 to n do - перебираем m от 2 до n
if m<=100 then head:=head + 3 -считаем головы
else head:=head + 2; -счиаем головы
eye:=head*2; - считаем глаза
writeln('голов',head,'глаз',eye); -выводи результат
end.