Помогите срочно пожалуйста Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%] Даны два целых числа. Вывести меньшее из них. Входные данные: Во входном потоке в первой строке через пробел заданы целые числа A и B (-30000 < A,B < 30000), A неравно B. Выходные данные: В выходной поток вывести единственное целое число. Пример входного файла (input.txt): -30000 45 Пример выходного файла (output.txt): -30000

Var
a,b:integer;
begin
assign(input,input.txt); reset(input);
assign(output,output.txt); rewrite (output);
Read(input,a);
Read(input,b);
If a>b then min:=b else min:=a;
Write(output,min);
Close(input);
Close(output);
end.