Задание

Установите соответствия

объявление строки s

запись значения в строку s

ввод значения строки s с клавиатуры

вывод значения строки s

определить длину строки s

вывод i - ого элемента строки s

var s: string;

s:= 'Вася пошёл гулять';

readln (s);

writeln (s);

n:= Length (s); // n: integer;

writeln (s[ i ] );