Помогите пж по информатике 1)в программу вводится 3 числа программа должна определить 2...

Question

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

Answer 1

program asd;
uses crt;
var
a,b,c:integer;
begin
writeln('Введите 3 числа');
readln(a); readln(b); readln(c);

if (abegin
writeln('Минимальное ', a);
end
else
begin
if (belse writeln('Минимальное ', c);
end;