помогите пж по информатике
1)в программу вводится 3 числа программа должна определить 2 наибольших и вывести на экран сумму 2 наибольших
составить блок схемы .
2)в программу вводится 4 числа программа должна найти наименьшее число .
решение и блок схемы .

program asd;uses crt;vara,b,c:integer;beginwriteln('Введите 3 числа');readln(a); readln(b); readln(c);if (a<b) and (a<c) thenbeginwriteln('Минимальное ', a);endelsebeginif (b<c) then writeln('Минимальное ', b)else writeln('Минимальное ', c);end;