Program a1;

максим в категроии Информатика, вопрос открыт 30.09.2018 в 08:29

var a, b, с, min: real;
begin
writeln ('Введите три числа');
readln (a, b, с);
min := а;
if b min:=b;
if c min:=c;
writeln ('min=' , min);
end.