Даны 3 числа а в с найти минимальное из них

Question

Даны 3 числа а в с найти минимальное из них

Answer 1

Var a,b,c,min:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if aif cwriteln('min=',min);
end.