<span>program
HelloWorld;</span>
var x,i
:integer;
begin
x := 0; // количество желаний
i := 0; // года совместной жизни
while(x < 33) do
<span> begin</span>
<span> i := i+1;</span>
<span> if i mod 3 = 0 then </span>
<span> begin</span>
<span> x:= x + 2*3</span>
<span> end</span>
<span> else </span>
<span> begin</span>
<span> x:= x + 3</span>
<span> end;</span>
<span> write('Год: ');</span>
<span> write(i);</span>
<span> write</span>(' кол-во желаний: ');
write(x);
<span> writeln('');</span>
<span> end;</span>
end.
Ответ: 9 лет
Var
a,b,c:integer;
begin
writeln("в каком году был основан город Минск ?");
writeln("<span>в 1067 году, в 1993 году, в 1147 году. В ответе просто число.</span>");
readln(a);
if a = 1067 then writeln("верно")
else writeln("Ошибка")
Еугйжг рз жзогзх жсдуг=<span> </span><span>вражда не делает добра
каждая буква в этих словах сдвинется на 3 назад в обычном алфавите
е=в
у=р
г=а
итд</span>
ну я тут тебе решила)) хе-хе..
Будет слово "разметка", т.к. слова-ответы складываются из конца и начала некоторых рядом стоящих слов фразы.