procedure Main is
a, b, c : INTEGER;
begin
a := 3;
b := 5 - (a * 3);
Put (a); Put (b);
if b < -1
then 
	c := (b + 9) / 5;
else
	c := 13;
end if;
while a + c > b - 4
loop
	a := a / 2;
	b := c - b;
end loop;
Put (a); Put (b);
end;