program picaso; uses crt; var a,b,c,minim: real; procedure min(a,b: real ; var minim: real); begin if a> b then minim: =b else minim: =a; end; begin clrscr; writeln('a'); readln(a); writeln('b'); readln(b); writeln('c'); readln(c); min(a,b,minim); min(minim,c,minim); writeln('min=',minim); readln; end.
Поделитесь своими знаниями, ответьте на вопрос: