Хотя бы что-нибудь! решить в ! составить программу для: 1)решения линейного уравнения ах + в = 0 (а, в ≠ 0). 2)найти площадь кольца по заданным внешнему и внутреннему радиусам 3)даны катеты прямоугольного треугольника, найти его площадь и периметр 4)даны два числа. найти среднее арифметическое их модулей 5)даны координаты двух точек на плоскости. вычислить расстояние между ними 6)даны два основания и высота прямоугольной трапеции. найти ее площадь и периметр 7)найдите разность между трехзначным числом и произведением его цифр

1)  var a,b,x: real; begin write ('введите числа а и b: '); readln(a,b); x: =-b/a; writeln('x= ',x); end. 2)  var r1,r2,s: real; begin write ('введите размеры  внешнего и внутреннего радиусов: '); read(r1,r2); s: =pi*r1*r1-pi*r2*r2; write ('площадь кольца =  ',s); end. 3)  var a,b,c,s,p: real; begin write ('введите длины катетов: '); read(a,b); s: =a*b/2; c: =sqrt(a*a+b*b); p: =a+b+c; write ('площадь треугольника  =  ',s); write ('периметр  треугольника  =  ',p); end. 4)    var a,b,sr: real; begin write ('введите числа а и b: '); readln(a,b); sr: =(abs(a)+abs(b))/2; writeln('среднее арифметическое модулей  = ',sr  ); end. 5)  var x1,y1,x2,y2,r: real; begin write ('введите координаты точек: '); readln(x1,y1,x2,y2  ); r: =sqrt ( sqr(x2-x1)+sqr (y2-y1)); writeln('расстояние  = ',r  ); end. 6)    var a,b,h, s, p: real; begin write ('введите длины оснований и высоту трапеции: '); readln(a,b,h); s: =(a+b)*h/2; p: =a+b+h+sqrt (sqr(abs(a-b))+h*h); write ('площадь трапеции  =  ',s); write ('периметр  трапеции=  ',p); end. 7)  var a,e,d,s, p: integer; begin write ('введите трехзначное число: '); readln(a); e: =a mod 10; s: =a div 100; d: = (a  div 10) mod 10; p: =e*d*s; write ('разность между трехзначным числом и его произведением =  ',a-p); end.   к твоему комментарию  var x,s,m,c: integer; begin write('введите количество секунд: '); readln(x); c: =x div 3600; m: = (x mod 3600) div 60; s: =(x mod 3600) mod 60; writeln('прошло    ',c,'   часов  ',m,' минут ', s,' секунд '); end.

если переменная нужна целая то так:

x: =random(b-a)+a

если можно дробную, то так

x: =(b-a)*random+a

var

d1,d2,d3,d4: string;

begin

randomize;

readln(d1);

readln(d2);

readln(d3);

readln(d4);

case random(4) of

0: writeln(d1,d2,d3);

1: writeln(d1,d2,d4);

2: writeln(d2,d3,d4);

3: writeln(d1,d3,d4);

end;

end.