program testik3;
var x,y:integer;
procedure neco(a,b:integer);
var c,d:integer;
begin
c:=a+b+2;
d:=c div (a+2*b);
a:=(3*a-b)*(c-2)*(d-3) div (a+b+c*d);
b:=a div 2;
end;
begin
x:=1;
y:=1;
neco(x,y);
writeln(x,' ',y);
end.
{ Co program vypíše? }
Kdo byste našel v nějakém z těchto programů chybu, dejte mi to vědět - můžete tak získat bonusové body (1 chyba ≈ 5 bodů). ;)