Составьте программу рисования окружностей в точке (200,200) и радиусами 10,20,30,40,50(примените команду for)

Program axaxa; uses graphabc; var i,a,d: integer; begin a: =200; d: =50; setwindowsize (640,480); setpencolor (clbrown); setpenwidth (2); for i: =1 to 5 do begin circle(a,a,d); d: =d-10; end; end.

program xxx;

  var n, c, d, e, s : integer;

begin

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

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.