Ответы и объяснения

2013-10-13T13:37:49+04:00
Program ololo;
var n:integer;
begin
n := -3;
repeat
if n<0 then writeln(2*n) else
if n>0 then writeln(0.5*n) else writeln(n);
n := n + 1;
until n < 9;
end.