Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дана программа нахождения меньшего из двух чисел.

Ответ оставил Гость

vara,b:integer;
procedure Poisk(a,b:integer);
begin 
if a > b then 
  writeln(Меньшее число , b);
  if a=b then 
    writeln(Равны); 
  if a < b then   
  writeln(Меньшее число , a);
end; 
begin 
writeln(Введите числа);
  readln(a,b); 
Poisk(a,b);
end.