Изобразить на экране ЭВМ следующий рисунок: Построение графических изображений в C++

700 иероглифов было в древнем письме

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.