Паскаль. Дана строка. В конце каждого слова добавить "!"
Начало, чтобы было таким:
var a:string; i,k:integer;
begin
writeln('введи строку:');
readln(a);
for i:= 1 to length(a) do
if a[i]