Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Даны целые числа a b.Найти минимальное из них и вывести в переменную min

Ответ оставил Гость

Var
a,b,min:real;
begin
write(А - );
readln(a);
write(B - );
readln(b);
if a else min:=b;
writeln(Min - ,min);
end.

Оцени ответ