1)даны объёмы и массы двух тел из разных материалов.материал какого из тел имеет большую плотность? 2)определить является

Program plotnost;

Var

m1, m2, v1, v2: integer;

Begin

readln(m1) ;

readln(v1) ;

readln(m2) ;

readln(v2) ;

if m1/v1>m2/v2 then

writeln(\'плотность тела 1 больше\') ;

if m1/v1<m2/v2 then

 writeln(\'плотность тела 2 больше\') ;

else

writeln(\'плотности равны\') ;

end. 

Program delitel;

Var

a, b: integer;

begin

readln(a) ;

readln(b) ;

if amodb=0 then

writeln(\'b делитель числа а\');

if bmoda=0 then

writeln(\'a делитель числа b\') ;

else

writeln(\'ни одно число не является делителем другого\') ;

end.