Решить в паскале, можно одну - у гусей и кроликов вместе 64 лапы. сколько может быть кроликов и гусей (указать все сочетания которые возможны). для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных.

P.s. и лучший ответ не помешает.

Using system; using system.collections.generic; using system.io; using system.runtime.serialization.formatters.binary; internal static class program {       private const string filename_ = "words.dat";       private static void main()       {               try               {                       console.writeline("ввод строк/слов, каждое с новой строки, окончание ввода - пустая строка");                       var words = new list< string> ();                       string line;                       while ((line = console. = string.empty)                               words.add(line);                       serialize(filename_, words.;                       words.clear();                       console.writeline("вывод данных из файла");                       var words_from_file = (string[]) deserialize(filename_);                       for (var i = 0; i < words_from_file.length; i++)                               console.writeline($"{i} = {words_from_file[i]}");               }               catch(exception e)               {                       console.writeline(e);               }               finally               {                       console.readline();               }       }       private static void serialize(string file, object o)       {               using (var fs = new filestream(file, filemode.create, fileaccess.write, fileshare.readwrite))               {                       var bf = new binaryformatter();                       bf.serialize(fs, o);               }       }       private static object deserialize(string file)       {               using (var fs = new filestream(file, filemode.open, fileaccess.read, fileshare.read))               {                       var bf = new binaryformatter();                       var o = bf.deserialize(fs);                       return o;               }       } } сериализация в бинарный файл. в вашей программе действия записи и вывода происходят 2 раза, если это действительно надо повторить, то добавьте все в цикл и повторяйте сколько надо/хочется