Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>
"З<span>аписями с последнего урока" воспользоваться не могу, потому задание сделано самым примитивным образом. Недостающий текст добавляйте сами. HTML-файлы и рисунок прилагаются.
Нет, HTML приложить сайт не даёт, так что посылаю в текстовом виде, тип файла (расширение) меняйте сами.</span>
Var
year, answer: Integer;
begin
WriteLn('V kakom gadu nochalasya voina?');
WriteLn('Vvedite god nachala WoW');
ReadLn(answer);
if answer <> year then
begin
WriteLn('Ne pravilno, pravilniy atvet bil = ' + year);
end else
begin
WriteLn('VERNA!');
end;
end;
end.
А как мы решим тебе красворд без вопросов?