1)даны объёмы и массы 2-ух тел из разных материалов.материал какого из

Program plotnost;

Var

m1, m2, v1, v2: integer;

Begin

readln(m1) ;

readln(v1) ;

readln(m2) ;

readln(v2) ;

if m1/v1gt;m2/v2 then

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

if m1/v1lt;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.