Информатика 9 класс. напишите на языке паскаль, и если можно графическими схемами 1.даны объемы и массы двух тел изготовленных из разных материалов. материал какого из тел имеет меньшую плотность? 2.даны 3 вещественных числа. определить сумму тех чисел, которые больше 5.

1) var

v1,v2,m1,m2:integer;

begin

readln(m1,v1,m2,v2);

if (m1/v1)>(m2/m2) then writeln('Первое')

else if (m1/v1)<(m2/m2) then writeln('Второе')

else writeln('Плотности равны')

end.

2) var

a,b,c,s:real;

begin

readln(a,b,c);

s:=0;

if a>5 then s:=s+a;

if b>5 then s:=s+b;

if c>5 then s:=s+c;

writeln(s)

end.