Question

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

Answer 1

 program min;
uses crt;
var a,b,c:integer;
begin
  read(a,b,c);
  if (a<b) and (a<c) then writeln(a)
  else if b<c then writeln(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.
думаю, объяснять не нужно