1. Скласти програму для перевірки агрегатного стану води, маючи й температуру у градусах Цельсія. Вказівка. Використай розширену алгоритмічну конструкцію розгалуження з еlif для перевірки кількох умов. 2. Дано три числа. Написати програму, яка знаходить добуток двох більших з них.
3. програму для розв'язування лінійних рівнянь за заданими коефіцієнтами. Вказівка. Лінійне рiвняння має вигляд ах + b=0.
begin
writeln('введите число');
readln(a);
g:=0;
c:=0;
d:=0;
i:=0;
f:=0;
writeln('введите число для сравнения');
readln(h);
for b:=a downto 1 do begin
if a mod b = 0 then writeln('его делитель ==>',b);
if a mod b = 0 then c:=b+c;
if a mod b = 0 then if b mod 2 = 0 then d:=d+b;
if a mod b = 0 then if b mod 2 <> 0 then i:=i+1;
if a mod b = 0 then f:=f+1;
if a mod b = 0 then if b mod 2 = 0 then g:=g+1;i
f a mod b = 0 then if b>h then n:=n+1;
end;
writeln('сумма его делителей ==>',c);
writeln('сумма его чётных делителей ==>',d);
writeln('количество нечётных делителей ==>',i);
writeln('количество чётных делителей ==>',g);
writeln('количество делителей ==>',f);
writeln('количество делителей больших b ==>',n);
end.