Напишите программу для угадывания слова. она должна запрашивать от пользователя строки, пока тот не введет слово, предусмотренное в программе. ,

Так небольшой экскурс:   1 вводим правильное слово (которое надо загадать). 2 вылезает предложение о догадке, если предположение верное вылезает соответствующее окно, программа завершается. если же нет, то появляется подсказка.

Var            arr : array[1..99] of integer;       n, s, k : integer; begin     read(n);     for var i : = 1 to n do begin         arr[i] : = random(-10, 10);         writeln(arr[i]);         if arr[i] > 0 then begin             s += arr[i];             k += 1;         end     end;     writeln(s/k); end.

//pascalabc.net//версия 3.3, сборка 1634 (14.02.2018) 1)begin   var a: =readstring('a-> ');   println('сумма больше ',a.joinintostring(' ').tointegers.sum> readinteger('k-> ')? 'true': 'false');   println('a четное ',a.tointeger.iseven); end. пример: a-> 123456 k-> 22 сумма больше   false  a четное   true  2) begin   var a: =readinteger('a-> '); println('a нечетно',a.isodd);   var b: =a.tostring.joinintostring(' ').tointegers;   println('первая равна x',b.first=readinteger('x-> ')? 'true': 'false');   println('последняя равна y',b.last=readinteger('y-> ')? 'true': 'false'); end. пример: a-> 456485 a нечетно true  x-> 5 первая равна x false  y-> 5 последняя равна y true