Даны три слова вывести на экран самое короткое.
Я отдаю вам все свои баллы может для вас это хоть что-то значит. Прошу помогите!

На самом деле можно и не три слова ввести... программе все равно, среди скольких слов искать самое короткое.

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadlnString('Введите три слова через пробел:').ToWords;  var k:=a.Select(w->w.Length).ToArray.IndexMin;  Writeln('Самое короткое слово: ',a[k])end.ПримерВведите три слова через пробел: Изучаем язык PascalСамое короткое слово: язык

var   a1,a2,a3: string; begin  write ('Введите 1-е слово: ');  readln (a1);  write ('Введите 2-е слово: ');  readln (a2);  write ('Введите 3-е слово: ');  readln (a3);  if (length(a1)<>length(a2)) and (length(a1)<>length(a3))    then      if length(a1)<length(a2)         then          if length(a1)<length(a3)            then writeln('Самое короткое слово: ',a1)            else writeln('Самое короткое слово: ',a3)        else          if length(a2)<length(a3)            then writeln('Самое короткое слово: ',a2)            else writeln('Самое короткое слово: ',a3)    else writeln('Все слова одинаковой длины');end.---------------------------------------------------------------------Введите 1-е слово: волкВведите 2-е слово: оленьВведите 3-е слово: косуляСамое короткое слово: волк