Написать программу, которая запрашивает строку и выводит на экран 1-й, 2-й и 5-й символы.

Паскаль abc.

Переводим строку в массив символов. По красоте можно создать отдельно массив.

var s : String;

begin

Read (s) ;

Writeln (s. ToCharArray () [0]) ; / / число - 1 т. к. начинается все с нуля

Writeln (s. ToCharArray () [1]) ;

Writeln (s. ToCharArray () [4]) ;

end.

Var s:string;

begin

writeln ('Введите строку:') ;

readln (s) ;

writeln ('s[1] = ', s[1],', s[2] = ', s[2],', s[5] = ', s[5]) ;

end.

Пример:

Введите строку:

Microsoft

s[1] = M, s[2] = i, s[5] = o