programa.asg

using x, y of type integer; r, c, s, t of type canvas begin
  x:= 1;{- aldklasd -} ;
  print y
end