*****************C case*****************
Var
a:integer;
<span>Begin </span>
<span> Write('Введите число от 5 до 9: '); readln(a); </span>
<span> case a of </span>
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
<span>End.</span>
Первый 1111111
второй 92
третий 10766
четвертый 1470
Если правильно понял ваше задание, то вот...
Однако всё равно не вполне ясна связь с разделом информатики, в котором опубликован вопрос.
"Изображённый на правой картинке воин вооружен современным оружием, способным поражать противника издалека. Его снаряжение практично и продуманно для ведения боя в современных условиях. Слева от него изображён воин, который жил раньше, поэтому его вооружение представляет себя только необходимые для ведения ближнего боя меч и щит. Такой воин лишён защитных качеств и удобства современной амуниции, вместо которой использует обычную одежду своего времени"