Ответы
Ответ дал:
0
var s: string;
begin
write('Введите строку: ');
readln(s);
s := s + ' ';
writeln(copy(s, 1, pos(' ', s) - 1));
end.
begin
write('Введите строку: ');
readln(s);
s := s + ' ';
writeln(copy(s, 1, pos(' ', s) - 1));
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад