Ответы и объяснения

  • Sky09
  • профессор
2013-06-25T09:29:06+00:00

uses crt;
var

  a,b,c,min:integer;
begin
  writeln('Введи три числа: ');
  readln(a,b,c);
  min:=a;
  if b<min then min:=b;
  if c<min then min:=c;
  writeln('Наименьшее из этих чисел:  ',min);
end.