1. Скласти слово БЛОКНОТ із слів: БЛОНДИН, КНОПКА, ГРОТ. мова Pascal ABC
​

С использованием цикла

Объяснение:

var

 s, s1, s2, s3 : string;

 i : integer;

begin

 s1 := 'БЛОНДИН';

 s2 := 'КНОПКА';

 s3 := 'ГРОТ';

 s := '';

 for i := 1 to 3 do s := s + s1[i];

 for i := 1 to 3 do s := s + s2[i];

 s := s + s3[4];

 writeln(s);

end;