Решите СРОЧНО в pascal ABC это восьмой класс, даю 30БАЛЛОВ

и пробел на x появляется

//PascalABC{1} //факториалvar prod, n: integer;beginprod:=1;readln (n);for var i:=1 to n do prod:=prod*i;write (prod)end.{2}var n, min, i: integer;beginreadln (min);for i:=1 to 9 do beginreadln (n);if n<min then min:=n;end; write (min);end.{3}var sum, count, a: integer;beginsum:=0; count:=0; a:=0;repeatreadln (a);inc (count);inc (sum, a);until a=0;write (sum/(count-1))end.{4}uses Crt;var x, y: integer;beginrepeatgotoXY(1, 1); clearline;write ('x ='); readln (x);clearline;write ('y ='); readln (y);gotoXY (x, y); write ('#');until (x=0) and (y=0);end.