Var
a,b,c,x,y,k,l,j,v,d:integer;
Begin
read(a);
read(b);
read(c);
k:=0-c;
d:=1;
For x:=1 to c do
For y:=k to c do
begin
If a*x+b*y=c then
If d>=x then begin
d:=x;
v:=y;
end;
end; Writeln(d,' ',v);
end.
Объяснениеd это переменная, обозначающая минимальное значение x
ошибка была в строке If d<=x then begin
Если x меньше а не больше минимального, то минимальному должно присваиваться значение x
Исправленная строка If d>=x then begin