program grafika; uses crt; var a,b,c,x,y,n : integer; begin clrscr; a := 0; b := 0; readkey; end.