Var s:string; i:integer;
begin
writeln('Введите слово:');
readln(s);
for i:=1 to length(s) do write(s[i],' ');
<span>end.
Пример:
Введите слово:
primer
<span>p r i m e r
</span></span>
Вроде это. Там со светофором же?
Потому что большинство системных задач по администрированию реализовано в виде консольных утилит. Более того некоторые сервера (на базе ОС BSD и Linux) не имеют графической среды вообще.
Var a, b, c, D: real;
begin
write('Введите a, b, c>> ');
readln(a, b, c);
if a<>0 then
begin
D:=sqr(b)-4*a*c;
if D>=0 then writeln('Имеет корни') else writeln('Не имеет корней')
end
else
writeln('a не должен быть равным 0')
<span>end.</span>