Pascal 1. в строке, любое количество подряд следующих пробелов замените единственным пробелом. 2/вычислите длину самого короткого слова в предложении из трех слов, разделенных пробелами.

uses crt;var s:string;beginclrscr;writeln('Введите строку, содержащую группы пробелов:');readln(s);while pos('  ',s)>0 dodelete(s,pos('  ',s),1);write(s);readlnend.