program First;

var

 a, b: integer;
 c, d: char;

begin

a:= b;
b:= a;

for i:=1 to 10 
 for j:=10 downto 0 step 2
  d:= e + (a-e)*(a/b);

end.