Question

С клавиатуры вводится строка, содержащая три слова, разделённые пробелом.
Напишите программу, которая меняет местами второе и третье слово. Lazarus

Answer 1

Program P4;
type A:array[1..30] of char;
var c:string[30];
begin
  Writeln('Введите слова через пробел');
  Readln(c[1..10], c[11..20], c[21..30]);
  Writeln('Результат');
  Writeln(c[1..10], c[21..30], c[11..20]);
end.

P.S.
Может быть неверно.