Вывести на экран случайные целые числа находящиеся в промежудке от 1 до 100

vari,k: integer; beginrandomize; for i: =1 to 10 do

write(random(101)+1, ' '); end.

Var  a,b,p,n,x,i: integer; begin writeln('сколько примеров будешь решать: '); readln(n); for i: =1 to n do   begin   a: =random(10)+1;   b: =random(10)+1;   write('сколько будет ',a,'+',b,'=');   readln(x);   if x=a+b then     begin     p: =p+1;     writeln('правильно');     end     else writeln('неверно');   end; writeln('число правильных ответов: ',p); if p=n then writeln('отлично, ты превосходно знаешь арифметику'); if (p< n) and (p/n> 0.75) then writeln('хорошо, ты неплохо знаешь арифметику'); if (p/n< =0.75) and (p/n> 0.5) then writeln('удовлетворительно, ты средне знаешь арифметику'); if (p/n< =0.5) and (p> 0) then writeln('плохо, ты не знаешь арифметику'); if p=0 then writeln('отвратительно, ты абслютно не знаешь арифметику'); end.можно сделать, чтобы не только на сложение, а на все 4 действия.

№1  var s,v,t,a: real;   begin  writeln('введите скорость, ускорение и время соотвественно');   read(v,a,t);   s: =v*t+(a*sqr(t))/2;   writeln('расстояние s = ',s);   end. №2 var a,b,c,d,m,n: integer;   begin  writeln('введите ширину и высоту комнаты');   read(a,b);   writeln('введите размеры окна');   read(c,d);   writeln('введите размеры двери');   read(m,n);   writeln('площадь стен для оклеивания обоями = ',a*b-c*d-m*n);   end. №3 var a,b: real;   begin  writeln('введите два числа');   read(a,b);   writeln('среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2);   writeln('среднее модулей этих чисел = ',sqrt(abs(a*;   end. №4 var x: real;   begin  writeln('введите ребро куба');   read(x);   writeln('площадь грани = ',sqr(x));   writeln('площадь полной поверхности = ',6*sqr(x));   writeln('объем куба = ',power(x,3));   end. №5 var r1,r2: real;   begin  writeln('введите внешний и внутренний радиус');   read(r1,r2);   if r1< r2 then writeln('внешний радиус должен быть больше внутреннего') else  writeln('площадь кольца = ', pi*sqr(r1)-pi*sqr(r2));   end.