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 (a<b) and (a<c) then
begin
writeln('Минимальное ', a);
end
else
begin
if (b<c) then writeln('Минимальное ', b)
else writeln('Минимальное ', c);
end;