По pascalabc нужно сделать программу и блок схему вводится произвольная последовательность действительных чисел. найти наименьшее из всех чисел решите старым добрым как учат в школах) program var begin end и.т.д

Program min_digit; var i, answer,temp, count: integer; begin answer : = 1000*1000*1000+13; read(count); for i: = 1 to count do   begin       read(temp);       if (temp < answer)then           answer : = temp;   end; writeln(answer); end.

Program minimalnoe_chislo; var a,b,c,min: integer; begin writeln('введите 3 числа: '); readln(a,b,c); if a< b then min: =a else min: =b; if c< min then min: =c; writeln('наименьшее из чисел = ',min); end.