Подсчитать количество положительных чисел среди чисел а, б,с (блок схемы-ветвление)

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

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.

цели создания модели бывают такие:

сохранить информацию о наблюдаемом объекте

передать информацию о нём другим людям

показать,как может выглядеть проектируемый объект

испытать на модели работу объекта ,если испытание объекта-оригинала

опасно или дорого

решить

конечно .pas! простой вопрос!