Пример 1
Дано слово "информатика". Получить из него слово "кино".
Решение:
Program p1;
Var s, t: string;
begin
s:='информатика';
t:=s[10]+s[9]+s[2]+s[4];
writeln ('Ответ:', t);
end.
Пример 2 (РТ - стр. 29, № 5)
Составьте программу, которая позволяет ввести с клавиатуры две строки, затем выводит эти строки в алфавитном порядке
Решение:
Program p2;
Var a, b: string;
begin
write ('Введите две строки ');
readln (a, b);
If a<b
Then Writeln (a, ' ',b)
Else Writeln (b, ' ',a)