Пожалуйста, помогите написать программу в Паскаль. 7 задача

Число - поставщик цифр, не более того.

У нас алфавит - поставщик букв. Но мы же не уверяем, что из первых десяти букв алфавита нельзя получить слова на том основании, что они следуют в определенном порядке!

Можно получить слова != образуют слова.

Это возражение ради процесса возражения? Как я понимаю, на деле-то крыть нечем.

Я просто поясняю, почему выбрал именно такой вариант. Не понимаю, что я должен /крыть/, если вы в самом начале согласились, что задача имеет более одной интерпретации, а я согласился с тем, что этот вариант действительно более простой.

var k:integer; t:boolean;begin read(k); t := (k div 100 - k div 10 mod 10) = (k div 10 mod 10 - k mod 10); if t then   writeln('Образуют') else   writeln('Не образуют')end.

var  k,i,j,t:integer;  a:array[1..3] of integer;begin  Write('k='); Read(k);  a[1]:=k mod 10;  t:=k div 10;  a[2]:=t div 10;  a[3]:=t mod 10;  for i:=1 to 2 do    for j:=i+1 to 3 do      if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t end;  Write('Цифры числа ',a[1],',',a[2],',',a[3],' ');  if a[3]-a[2]=a[2]-a[1] then Writeln('образуют арифметическую прогрессию')  else Writeln('не образуют арифметическую прогрессию')end.  Пример работы программыk=915Цифры числа 1,5,9 образуют арифметическую прогрессию