Для генерации случайного числа из интервала 0 10 необходимо использовать выражение​

Var b,c:boolean;
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.

var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln('Square')
else if a*a<pi*r*r then writeln('Circle')
else writeln('Equal');
end.

var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln('p1>p2')
else if m1/m2<m2/v2 then writeln('p1<p2')
else writeln('p1=p2');
end.

var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if a<b then writeln(a)
else writeln('Equal');
end.

Не знаю паскаль, знаю C++ :)

{ 

int a, b;

//вводим значения в a и в b (в футах)

cin >> a >> b;

b = b*45;

if (a>b) cout << "В км больше";

else cout >> "В футах больше"; 

} 

 

{ 

// тут важен дробный тип 

dooble a, b;

//вводим значения в a и в b (м/c)

cin >> a >> b;

a = a:3.6;

if (a>b) cout << "В км/ч больше";

else cout >> "В м/с больше"; 

}

 

ну а дальше надо уже все по формулам смотреть. 

{

doouble a,b;  

//вводим значения в a и в b стороны

cin >> a >> b;

a=a*a*3.14;

b=b*b;

if(a>b) cout << "Площадь круга больше";

else cout << "Площадь квадрата больше"; 

} 

 

4. не знаю как такое делать, что значит уместиться ли круг в квадрате? Уместится если радиус его меньше чем половина стороны.

 

5.

{

  doouble a,b,c,d;

  cin >> a >> b >>c >>d; // вводим объем и массу;

 a = a/b;

c = c/d;

if(a>c) cout << "Тело 1 имеет плотность больше чем тело 2";

else cout << "тело 2 имеет большую плотность"; 

} 

 

6. не знаю. Но тоже как-то через форумулы.