Дана строка. Удалить из нее все пробелы. Программа Паскаль

Question

Дана строка. Удалить из нее все пробелы. Программа Паскаль

Comments

и где?

---

Что где?

---

картинка

---

Какая

---

забей

Answer 1

Var s:string;
begin
writeln('Введите строку:');
readln(s);
while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
writeln(s);
end.

Пример:
Введите строку:
Удалить из нее все пробелы. 
Удалитьизнеевсепробелы.