Cod:
program euclidextins;
var a,b,c,x,y,i,t:integer;
begin
readln (a);
readln (b);
readln (c);
{read}
for x:=-c to c do
for y:=-c to c do
if (a*x+b*y=c) then writeln (a,'*',x,'+',b,'* ',y,'=',c);
readln;
end.
[editat] Chiar daca se vede frumos si cum ai facut tu, data viitoare foloseste tag-ul "code"
