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

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.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку