задача на условный оператор

[Erkesh]

введите любые 5 числа, составьте программу , которая докажет что они составляют арифметическую прогрессию (нужен код)

[whatever]

Чего для хорошего человека не сделаешь?

Program progression;
var
  ch:char;
begin
  writeln('Введите пять чисел через запятую');
  readln;
  writeln('Составляют ли эти числа арифметическую прогрессию? [y/n]');
  readln(ch);
  if (ch='y')or(ch='Y') then
    writeln('Эти числа составляют арифметическую прогрессию')
  else
    writeln('Эти числа не составляют арифметическую прогрессию');
  readln;
end.

[TinMan]

whatever, какой ты сегодня добренький.. ))
не, ну ваще-то я тоже так считаю - если чел пишет "(нужен код)" - то ведь и надо давать ему (код) - верно же?
не, ну, скажите, плз, думаете, я, вот, ошибаюсь, а?.. (я тут запятую не пропустил?))
так что - одобрям-с, уважаемый пофик! +1, no bullshit!