Program asd; USES crt; var a,b,c,min:real; BEGIN clrscr; Writeln('Vvedite x: '); Readln(a); Writeln('Vvedite y: '); Readln(b); Writeln('Vvedite z: '); Readln(c); min := a; if b < min then min := b; if c < min then min := c; Writeln('Minimalnoe chislo: ',min); Readln; END.
USES crt;
var a,b,c,min:real;
BEGIN
clrscr;
Writeln('Vvedite x: ');
Readln(a);
Writeln('Vvedite y: ');
Readln(b);
Writeln('Vvedite z: ');
Readln(c);
min := a;
if b < min then min := b;
if c < min then min := c;
Writeln('Minimalnoe chislo: ',min);
Readln;
END.