program dledspa;
var
st:string[30];
begin
write('Введите строку:');
readln(st);
while (pos(' ',st) = 1) and (length(st)>0) do
delete(st,1,1);
write('Строка без начальных пробелов:',st);
end.
program dledspa;
var
st:string[30];
begin
write('Введите строку:');
readln(st);
while (pos(' ',st) = 1) and (length(st)>0) do
delete(st,1,1);
write('Строка без начальных пробелов:',st);
end.