Описание слайда:
Что получится в результате выполнения программы?
program primer;
var a, b, c, d: string;
begin
a:= ‘лекарство’;
b:= copy (a, 8, 1) + copy (a, 4, 1) + copy (a, 1, 2) + copy (a, 7, 1);
c:= copy (a, 3, 1) + copy (a, 5, 1) + copy (a, 2, 1) + copy (a, 6, 1) + copy (a, 1, 1) + copy (a, 9,1);
d:= copy (a, 6, 1) + copy (a, 2,1) + copy (a, 7, 1) + copy (a, 3, 2);
write (b, ‘ ‘, c, ‘ ‘, d);
end.