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

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

if (a<b) and (a<c) then
begin
writeln('Минимальное ', a);
end
else
begin
if (b<c) then writeln('Минимальное ', b)
else writeln('Минимальное ', c);
end;