Question

pascal abc. Составьте программу, которая позволяет вывести на экран первое слово
строки, состоящей из двух слов, разделенных пробелом. Строка вводится
с клавиатуры.​

Answer 1

var

 k: integer;

 s: string[50];

 

begin

 Readln(s);

 k := Pos(' ', s);

 Writeln(Copy(s, 1, k - 1))

end.