Паскаль, . сделать так, чтобы программа повторилась несколько раз program z; var x,a,k: integer; begin x: =random(100)+1; repeat writeln('введите число от 1 до 100'); readln(a); k: =k+1; if a> x then write ('> '); if a