Составить трассировочную таблицу для алгоритма при а=13, b=12. Каков результат?

думаю, что 19,5 кб = 0,019 мб.

данное слово - центрирование

uses crt;

var a,s: integer;

begin

s: =0;

writeln('введите числа');

while a< > 0 do begin

readln(a);

if (a> 0)  then s: =s+a;

end;

writeln('s=',s);

end.

var  n, i: integer;     x, s: real; begin  repeat       writeln('введите количество слагаемых: ');       readln(n)  until n> 0;   writeln('введите ''x'': ');   readln(x);   for i : = 1 to n do      s : = s + sin(i * x);   writeln(s);     readlnend.