Ввести свою фамилию. Вывести её горизонтально с промежутком ...

Ira

Ответ:
Это для Pascal ABC:
var s:string;
i:integer;
begin
write('Введите свою фамилию: ');
readln(s);
for i:=1 to length(s) do
write(s[i],' ');
end.
Это для Pascal ABC.NET:
begin
var s:=ReadString('Введите свою фамилию: ');
for var i:=1 to s.Length do
write(s[i],' ');
end.