Найти наименьшее из 3 чисел по Паскалю

Question

Найти наименьшее из 3 чисел по Паскалю

Answer 1

 program min;
uses crt;
var a,b,c:integer;
begin
  read(a,b,c);
  if (a  else if b  else writeln(c);
end.

Answer 2

Var i,k,min:integer; 
begin
readln(k);
min:=k;
for i:=1 to 2 do begin
readln(k);
if k>=min then min:=k;
end;
writeln(min);
end.
думаю, объяснять не нужно

Comments

begin

---

var m1:=readinteger;
var m2:=readinteger;
var m3:=readinteger;
write (min (min(m1, m2), m3));
end.