Дана строка s, содержащая менее... - вопрос №661211
Дана строка s, содержащая менее чем 100 символов. Получить подстроку символов, включающую все символы исходной строки, расположенные до первого двоеточия. Использовать стандартные процедуры и функции в действиях над строками.
program stroka100;
var st,st1:string[100];
i:integer;
begin
writeln('vvedite stroku');
readln(st);
i:=pos(':',st);
st1:=copy(st,1,i-1);
writeln(st1);
end.