Массив а(n) заменить нулями отриц. элементы(блог схема)

Вот то что просил(а)

program helloworld;

var run, day: integer;

begin

      run : = 10;

      day : = 1;

      while run< 20 do

      begin

              write('день: ');

              write(day);

              write('километраж: ');

              writeln(run);

             

              day: = day +1;

              run : = run+2;

      end;

 

      write('день: ');

      write(day);

      write('километраж: ');

      writeln(run);

 

end.

Ответ: 109, 190, 901 , 910 вот код:

а = новый массив(3); а[0] = "0"; а[1] = "1"; а[2] = "9";

для н =0 по 2 цикл        для нн = 0 по 2 цикл                для = 0 по 2 цикл        если а[н]=а[нн] или а[н]= или а[нн]= или а[н] = "0" тогда                продолжить;         конецесли;

        сообщить(число(а[н]+а[нн]+));

        конеццикла;       конеццикла; конеццикла;