Найдите наименьшее для трех заданных чисел x y z.

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.