Розсади вісім козенят і дев`ять гусей у п`яти хлівах, щоб у кожному хліві були і козенята, і гуси, а кількість лап і ніг дорівнювала 10.

К-сть лап: 8*4=32 к-сть гусячих ніг: 8*2=16 разом 50. 1хлів: 4+4+2 (2кози і гуска) 2хлів: 4+4+2 3хлів: 4+4+2 вже є 6 кіз і 3 гуски 4хлів: 4+2+2+2 (1 коза і 3 гуски) 5хлів: 4+2+2+2

а якись пидказки ще е? тому що якось так не

Type   mus = record     name: string;     style: string;     dur: real;   end; var   a: array[1..10000] of mus;   i,n: integer;   nam, st: string;   duration: real; begin   writeln('введите количество композиций:   ');   readln(n);   for i: =1 to n do   begin     write('название: ');     read(nam);     write(' стиль: ');     read(st);     write(' длительность:   ');     read(duration);     a[i].name: =nam;     a[i].style: =st;     a[i].dur: =duration;   end; end.

Текст ниже программы организует ввод данных и запись их в типизированный файл. для завершения ввода в качестве названия надо ввести символ "звездочка" ( * ). type   song=record   name,style: string[20];   duration: real   end; var   f: file of song;   r: song; begin   assign(f,'mysongs.dat');   rewrite(f);   writeln('вводите данные в порядке "наименование, стиль, длительность');   writeln('для окончания ввода укажите символ * вместо наименования');   repeat       readln(r.name);       if r.name< > '*' then begin           readln(r.style);           readln(r.duration);           write(f,r)       end   until r.name='*';   close(f) end.